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PROGRAM DESCRIPTION 



SEQ 0003 

t . ABSTRACT 

THIS PROGRAM CONTAINS A SERIES OF BASIC LOGIC TESTS 
THAT CHECK THE TA1 1 FOR PROPER OPERATION. 

2 e REQUIREMENTS 

2 .1 EQUIPMENT 

PDP-11 COMPUTER WITH OR WITHOUT HARDWARE SWITCH REGISTER 
WITH CONSOLE TELETYPE, AND A TA11 CASSETTE 

2.2 STORAGE 

THIS PROGRAM REQUIRES APPROX. 4K STORAGE m 

2.3 PRELIMINARY PROGRAMS 

MAINDEC^I I *»DZTAA 

3. LOADING PROCEDURE 

USE STANDARD PROCEDURE FOP LOADING .ABS TAPES 

OR A CASSETTE TAPE . 

4. STARTING PROCEDURE 

4,1 CONTROL SWITCH SETTINGS 

SEE 5 S U 



j 



SEQ 0004 

4*2 STARTING ADDRESSES 

2@0 NORMAL STARTING ADDRESS 

204 SELECT DRIVE(S) BEFORE STARTING TEST 

210 SELECT DRIVE(S) AND ADDRESSES BEFORE STARTING TEST 

214 SETUP FOR MANUAL LOOPING 

220 WRITE FILE GAP FROM BOT TO EOT 

224 WRITE CONTINOUS BLOCKS OF DATA 

230 READ CONTINOUS BLOCKS OF DATA 

234 WRITE FILE GAP AND A BLOCK OF DATA 

240 READ BLOCK OF DATA AMD INTO A FILE GAP 

244 SPACE FWD FILE GAP FROM BOT TO EOT 

250 BACK SPACE FILE GAPS 

500 LOAD SWITCH REGISTER INTO THE TACS 

600 WRITE SWITCH REGISTER ON TAPE FROM BOT TO EOT 

700 READ FROM BOT TO EOT 

4,3 PROGRAM & OPERATOR ACTION 

1 . LOAD PROGRAM INTO MEMORY (SEE SECTION 3.) 

2. LOAD A WRITE ENABLED CASSETTE IN BOTH DRIVES 

3. REWIND BOTH DRIVES 

4. LOAD ADDRESS 200. 

5 9 SET SWITCHES (SEE SECTION 5.1) 
6. PRESS START. 

7* THE PROGRAM WILL LOOP & TTY BELL WILL RING ONCE EVERY 

PASS? IF SW<10>=0 9 
*#* NOTE: IF USING THE SOFTWARE SWITCH REGISTER 
PROGRAM WILL TYPE "SWR=XXXXXX NEW=", TO ALLOW 
SETTING OF REGISTER BEFORE BEGINNING TEST 4 

4*3 e ! DRIVE SELECTION 

STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECTION OF DRIVES "A" AND "B" TO BE TESTED. 
NOTE l IF LOAD MEDIUM IS CASSETTE WITH STANDARD VECTOR 
PROGRAM WILL RESPOND AS IF STARTED AT 210, 

STARTING THE PROGRAM AT 204, 210, OR 214 ALLOWS THE OPERATOR 
TO SELECT THE DRIVE(S) TO BE TESTED. 

THE PROGRAM WILL TYPE "DRIVE(S)?" . 

EITHER OR BOTH DRIVES CAN BE SELECTED BY TYPING "A" AND/OR 
M B" FOLLOWED BY A CARRIAGE RETURN. 

4.3.1.1 DRIVE SELECTION EXAMPLES 

DRIVE(S)? A r B 
DRIVE(S)? AB 
DRIVE(S)? B, A 
DRIVE(S)? B 



4®3®2 ADDRESS SELECTION 



STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR 
TO CHANGE THE "CONTROL AND STATUS 19 AMD "DATA BUFFER" 
REGISTER ADDRESSES 9 THE VECTOR ADDRESS AND THE 
PRIORITY LEVEL, 



THE PROGRAM WILL ASK FOR THE DRIVES TO BE TESTED AS PER 
4.3.1. AFTER THE DRIVES HAVE BEEN SELECTED IT WILL ASK 
FOR I 



S 9 BUS ADDRESS OF THE CONTROL AND STATUS REGISTER (TACS) 

2* VECTOR ADDRESS 

3* PRIORITY LEVEL 

AND THE OPERATOR MUST RESPOND WITH THE DESIRED PARAMETER 
OR A CARRIAGE RETURN (WHICH IMPLIES LEAVE AS IS) , 
WHEN ALL PARAMETERS HAVE BEEN DEFINED THE PROGRAM 
WILL TYPE THEM BACK OUT AND ASK IF THEY ARE OK AT 
WHICH TIME THE OPERATOR RESPONSES WITH A "Y" OR A 
"CARRIAGE RETURN* FOR "YES" ANYTHING ELSE IS A "NO" , 



4 e 3 e 2 @ i ADDRESS SELECTION EXAMPLES 



DRIVES(S) A 

TACS? 177500 
VECTOR? 260 
PRIORITY? 6 

TACSs|77500 TADBsl77502 VECTOR=000260 PRIORITY=000300 
OK? 



DRIVESCS) AfB 

TACS? 470 

VECTOR? 

PRIORITY? 

TACSs|77470 TADBsl77472 VECTOR=000260 PRIORITY=000300 
OK? 



SEQ 0005 



* * 



SEG 0006 

5. OPERATING PROCEDURE 

5.1 OPERATIONAL SWITCH SETTINGS 

IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC. 176) IS USED . 



CONTROLS 

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWINGl 

1) TYPE CONTROL G <**G>f THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM , 

2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 

OF THE SOFTWARE SWITCH REGISTER® ) 

3) AFTER THE **NEWs** HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY : 

A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED 9 

B) IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 

BACK TO STEP 2 S 



WITH SW<15|08>s0 THE PROGRAM WILL PRINT OUT ON 
ERRORS AND CONTINUE IN TEST, BELL WILL RING 
AT COMPLETION OF A PASS. 
THE SWITCH SETTINGS ARE? 

SW<15>=1 . . .HALT ON ERROR 
SW<I4>=U« 9 L00P ON TEST 
SW<i3>=U * ® INHIBIT ERROR TYPEOUTS 
SW<H>sl 99t INHIBIT ITERATIONS 
SW<10>=1...RING BELL ON ERROR 
SW<10>=0,..RING BELL ON PASS COMPLETE 
SW<09>=1 # . .LOOP ON ERROR 

SW<08>=1 . . .LOOP ON TEST AS PER SW<07;00> 
SW<07>=1 , . .LOCK ON CURRENT DRIVE (ONLY VALID 

FOR STARTING ADDRESSES 220 THRU 250) . 



5*2 



SUBROUTINE ABSTRACTS 



SEQ 0007 



5,24 SCOPE 

THIS SUBROUTINE CALL (VIA AN IOT INSTRUCTION) IS PLACED BETWEEN 

EACH TEST IN THE INSTRUCTION SECTION , IT RECORDS THE STARTING 
ADDRESS OF EACH TEST IN LOCATION "SLPADR" AND "SLPERR" AS IT IS 
BEING ENTERED. 

j THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 

5 S 2 S 2 TRAPC ATCHER 

A ". + 2" - "HALT" SEQUENCE IS REPEATED FROM LOC. TO LOC „ 776 
TO CATCH ANY UNEXPECTED TRAPS. THUS* ANY UNEXPECTED TRAPS WILL 
HALT AT THE DEVICE TRAP VECTOR +2. 

5*2*3 ERROR 

THIS SUBROUTINE CALL (VIA A EMT INSTRUCTION) IS USED TO REPORT 
ALL ERRORS. (REFER TO 6.) 

ITHIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 



5*2*4 TRAP 

A NUMBER OF SUBROUTINES ARE CALLED BY THE TRAP INSTRUCTION, 
FOLLOWING IS THE CALLS USED AND THE LABEL OF THE STARTING 
ADDRESS OF THE SUBROUTINES. 

5*2*4,1 TYPE ($TYPE) 

ROUTINE TO TYPE AN ASCIZ STRING ON THE TTY 

THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS 
AFTER A LINE FEED s 

5.2.4.2 RDCHR (SRDCHR) 

READ A SINGLE ASCII CHARACTER FROM THE TTY 

5.2.4.3 RDLIN (SRDLIN) 

READ AN ASCII STRING FROM THE TTY 

5.2.4.4 WAITREADY ( WAIT . ON . READY) 

WAIT ON THE "TA11 READY" BIT TO SET 

5 9 2*4 9 5 WAITXFER ( WAIT « FOR* XFER.REQ) 

WAIT ON THE "TA11 TRANSFER REQUEST" BIT TO SET 
5.2.4.6 STYPOC 

CHANGE A BINARY NUMBER TO OCTAL ASCII AND TYPE IT. 



, J 



5,2,5 THE FOLLOWING SUBROUTINES ARE CALLED BY A JSR 

5*2*5*1 STYPEC 

ROUTINE TO TYPE A SINGLE ASCII CHARACTER 
5,2,5,2 TYPERR 

THIS ROUTINE WILL TYPE THE ERROR MESSAGES 

5,2*5*3 SELDRV 

THIS ROUTINE IS USED TO ASK THE OPERATOR WHAT DRIVE(S) 
ARE TO BE TESTED 

5*2*5*4 SELADR 

THIS ROUTINE WILL ASK THE OPERATOR FOR THE ADDRESSES OF 
THE "TACS", "TADB" AND VECTOR AND THE PRIORITY TO USE, 



SEQ 0003 



5 8 2*6 THE FOLLOW ROUTINES ARE USED TO MAKE ADJUSTMENTS TO 

THE TU60, BEFORE USING ANY OF THEM LOAD AND START 214, 



5 S 2*6 S 1 WFGSU.B 

WRITE FILE GAPS FROM "BOT" TO H EOT H 
START AT 220 

THIS ROUTINE CAN BE USED TO ADJUST THE ® WRITE GAP MONO" AN 
THE 11 WRITE DELAY MONO" . 

5 9 2^6 @ 2 WRTSUB 

WRITE CONTINUOUS BLOCKS OF DATA 

START AT 224 

THE PROGRAM WILL HALT THREE ( 3 ) TIMES 

AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 

HALT i — SWR<7;0> s NUMBER OF BYTES PER BLOCK 

HALT 2 -»»SWR<7l0> s PATTERN DESIRED 

HALT 3 — SWR<|5?0> s OPERATIONAL SWITCH SETTINGS 

THIS ROUTINE CAN BE USED TO ADJUST THE *GAP TIME MONO" 

*# IF USING SOFTWARE SWITCH REGISTER, AFTER 
EACH HALT OPERATOR WILL BE PROMPTED 
FOR THE VALUE WITH "SWRsXXXXXX NEWs" 

5*2*6*3 RDSUB 

READ CONTINUOUS BLOCKS OF DATA 
START AT 230 

THIS ROUTINE CAN BE USED TO ADJUST THE "SIGNAL MONO" 
AND THE "THRESHOLD POT H 

5 9 2*6«4 WGPBLK 

WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO ECT 
START AT 234 

THE PROGRAM WILL HALT THREE (33 TIMES 

AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 

HALT i « — SWR<7|0> » NUMBER OF BYTES PER BLOCK 

HALT 2 — SWR<?!0> s PATTERN DESIRED 

HALT 3 — SWR<15I0> = OPERATIONAL SWITCH SETTINGS 

THIS ROUTINE CAN BE USED TO ADJUST THE " WRITE GAP MONO" 

AND THE "GAP TIME MONO", 

IF USING SOFTWARE SWITCH REGISTER? AFTER 
EACH HALT OPERATOR WILL BE PROMPTED 
FOR THE VALUE WITH "SWR=XXXXXX NEW*" 



SEQ 0009 



SEQ 0010 



5 9 2 S 6,S 



RGBLK 



READ A BLOCK OF DATA AND A FILE GAP 
START AT 240 

THIS ROUTINE IS USED AFTER "WRITE A BLOCK AND A FILE GAP M ROUTINE 
IT CAN BE USED TO ADJUST THE "SIGNAL MON" . THE THRESHOLD POT" 
AND THE " TAPE BLANK MONO" » 



SPACE FORWARD FILE GAP FROM **80T» TO ^EOT^ 
START AT 244 

THIS ROUTINE CAN BE USED AFTER "WRITE FILE GAP" FOR LOW SPEED 
SPACE FOWARD ( TAPE BLANK MONO CAN BE ADJUSTED) # OR AFTER READ OR 
WRITE A FILE GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD 
(SIGNAL MONO CAN BE CHECKED) , 



BACK SPACE FILE GAP 
START AT 250 

THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE ^SIGNAL MONO* 1 s 



5*2*7 THE FOLLOWING SUBROUTINES ARE USED B¥ THE ADJUSTMENT 
ROUTINES 

S«2J 9 ! SETBUF 

SETUP BLOCK SIZE AND PATTERN 
§,2«? @ 2 WRTBLK 

WRITES A BLOCK OF DATA 
5 9 2*7 @ 3 RDBLK 



5*2*5*6 



SFFGSB 



3*2,6,7 



BSFGSB 



READS A BLOCK OF DATA 



5,2.7,4 



NXTDRV 



CHANGE DRIVE 



SEQ 0011 

6, ERRORS 

THERE ARE A NUMBER OF ERRORS THAT CAN OCCUR IN THIS 
PROGRAM. WHEN AN ERROR IS ENCOUNTERED THE CALL TO 
THE ERROR ROUTINE IS MADE AND IF SW<13> IS NOT 
SET AN ERROR MESSAGE PERTAINING TO THE ERROR WILL BE 
TYPED 9 EACH ERROR TYPE OUT WILL CONTAIN THE FOLLOWING! 

1. AN ERROR MESSAGE 
2 S A DATA HEADER 
3 S A DATA STRING 

REFER TO THE LISTING UNDER $ ERRTB FOR THE DIFFERENT 
ERRORS THAT CAN OCCUR, 

7, RESTRICTIONS 

BEFORE STARTING THE PROGRAM THE OPERATOR MUST INSURE THAT A 
CASSETTE IS LOADED IN THE DRIVE(S) TO BE TESTED AND IS WRITE 
ENABLED , 

8, MISCELLANEOUS 

8*1 EXECUTION TIME 

THE FIRST PASS TAKES APPROXIMATELY 100 SECONDS ALL 
SUBSEQUENT PASSES TAKE APPROXIMATELY 475 SECONDS. 

8 t 2 STACK POINTER 

STACK IS INITIALLY SET TO 1100. 

8.3 PASS COUNT 

A PROGRAM PASS THRU COUNT IS KEPT IN "SPASS", 

8.4 ITERATIONS 

THE FIRST PASS OF THE PROGRAM WILL AUTOMATICALLY INHIBIT 
ITERATIONS, ALL SUBSEQUENT PASSES WILL PERFORM FULL, 
(2000 DECIMAL UNLESS OTHERWISE SPECIFIED WITHIN A TEST), 
ITERATIONS, 

8 S 5 SPECIAL REGISTERS 

R3, R4 AND R5 ARE RESERVED FOR "DRIVE", "TACS" AND H TADB 
THROUGH OUT THE PROGRAM. 



PROGRAM DESCRIPTION 



THIS PROGRAM IS A SEQUENCE OF SMALL INDEPENDENT TESTS THAT 
CHECK THE TAl 1 FOR PROPER OPERATION, 

THE TESTS CAN BE GROUPED INTO THE FOLLOWING GENERAL GROUPS, 

I* TEST THE TIMING ERROR CIRCUITRY 

2. TEST THE INTERRUPT CIRCUITRY 

3, TEST THE SPACING FUNCTIONS 
4* TEST THE FILE GAP CIRCUITRY 

5, TEST THAT DATA CAN BE WRITTEN AND READ 
6® TEST CRC CIRCUITRY 

7, INSURE THAT DATA CAN BE WRITTEN AND READ 
WHILE THE OTHER DRIVE IS REWINDING 
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224 
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225 


TRAP 


CATCHER 


234 


STARTING ADDRESSCES) 


246 




TOGGLE IN ROUTINES 


293 




LOAD SWITCH REGISTER INTO TACS 


301 




WRITE SWITCH REGISTER ON TAPE FROM BOT TO EOT 


327 




READ FROM BOT TO EOT 


345 


COMMON TAGS 


406 


ERROR 


POINTER TABLE 


473 




START OF TEST 


498 


INITIALIZE THE COMMON TAGS 


536 


TYPE 


PROGRAM NAME 


543 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


710 


Tl 


ROUTINE TO DETERMINE TIME OF WAIT LOOPS 


728 




#**#**#*##TIMING ERROR#####&#### 


733 


T2 


TEST K TIMING ERROR" FOR "WRITE* 


774 


T3 


TEST ^TIMING ERROR H FOR "READ* 


827 


T4 


TEST "ERROR" OUTPUT OF STATUS ROM USING A ^TIMING ERROR 


898 




########## INTERRUPTS#&######&« 


921 


T5 


TEST INTERRUPT WITH READY = "1" AT LEVEL 


970 


T6 


TEST INTERRUPT WITH READY a "1" AT LEVEL 1 


1019 


T7 


TEST INTERRUPT WITH READY a n l n AT LEVEL 2 


1068 


TI0 


TEST INTERRUPT WITH READY a "i« AT LEVEL 3 


1117 


Til 


TEST INTERRUPT WITH READY a " I " AT LEVEL 4 


1166 


T12 


TEST INTERRUPT WITH READY = " I " AT LEVEL 5 


1215 


T13 


TEST INTERRUPT WITH READY a "i" AT LEVEL 6 


1264 


T14 


TEST INTERRUPT WITH READY a " 1 " AT LEVEL 7 


1306 


T15 


TEST INTERRUPT WITH "TRANSFER REQUEST" a 1 


1343 


T16 


TEST INTERRUPT WITH "READY" a AND "XFER REO" a 


1382 


TI7 


TEST INTERRUPT WITH n XFER REQ" a 1 & "TIMING ERROR" a 1 


1450 




##########SPACING FUNCTIONS##### 


1455 


T20 


TEST ^BACK SPACE FILE GAP" 


1486 


T21 


TEST ^SPACE FORWARD FILE GAP" FUNCTION 


1515 


T22 


TEST "BACK SPACE BLOCK GAP" 


1543 


T23 


TEST "SPACE FWD BLOCK GAP" 


1576 


T24 


TEST AUTOMATIC " WFG" WHEN WRITING OFF OF "CLEAR LEADER" 


1602 


T25 


TEST "READ" INTO FILE GAP CAUSES AN ERROR 


1634 


T26 


TEST "SFBG" INTO FILE GAP CAUSES AN ERROR 


1666 


T27 


TEST "ERROR" OUTPUT OF THE STATUS ROM WITH "FILE GAPal " 


1735 


T30 


TEST BACK-SPACE«FILE«GAP INTO CLEAR LEADER 


1783 


T31 
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1828 
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1833 


T32 
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1869 
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1916 




###CRC 


1921 


T34 


TEST " ERROR" WITH "CRCERR" a 1 


1990 


T35 


TEST "DATA OF GIVES CRC OF 0" 


2038 


T36 


TEST "CRC" CIRCUIT USING A COUNT PATTERN 


2112 


T37 


TRY TO HANG "READY" ON "REWIND" 


2166 


T40 


TRY TO GLITCH THE "POWER SUPPLY " 


2269 


T41 


END OF TEST CODE 


2279 


END OF PASS ROUTINE 



f 
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TITLE TA11 BASIC LOGIC TEST (PART 2) 
♦COPYRIGHT (C) 1976 
♦DIGITAL EQUIPMENT CORP. 
♦MAYNARD, MASS . 01754 

# 

•PROGRAM BY JAMES LACEY 

♦ 

♦THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
♦PACKAGE (MAINDEC- 1 1-DZQAC-C1 ), MAR 24, 1976. 

* 

• *«****«»«»«*«*«*«*«»«**««*«*♦*«**♦***♦**#»»•*«#*«***♦♦#♦***♦«** 

.REM • 

GENERAL INFORMATION ABOUT THE TA11/TU60 CASSETTE 

ADDRESS MNEMONIC DESCRIPTION 



777500 TACS 
777502 TADB 
260 TAVEC 



CONTROL AND STATUS REGISTER 
DATA BUFFER REGISTER 
INTERRUPT VECTOR 



TACS REGISTER DESCRIPTION 



INIT 

STATE READ AND /OR WRITE? 



15 
14 
13 
12 
1 1 
10 



02 
01 



ERROR ? 

BLOCK CHECK ERROR 

CLEAR LEADER ? 

WRITE LOCK ? 

FILE GAP 

TIMING ERROR 

OFF LINE ? 

UNIT SELECT 

TRANSFER REQUEST 

INTERRUPT ENABLE 

READY 1 

ILBS 

\ UNCTION BIT 02 

FUNCTION BIT 01 

FUNCTION BIT 00 
0=WRITE-FILE«GAP 
1=WR1TE 
2=READ 

3=BACK SPACE FILE GAP 
4=BACK SPACE BLOCK GAP 
5=SPACE FORWARD FILE GAP 
b=SPACE FORWARD BLOCK GAP 
7=REwIND 

GO BIT 



READ ONLY 
READ ONLY 
READ ONLY 
READ ONLY 
READ ONLY 
READ ONLY 
READ ONLY 
READ/WRITE 
READ ONLY 
READ/WRITE 
READ ONLY 
READ/WRITE 
READ/WRITE 
READ/WRITE 
READ/WRITE 



WRITE ONLY I 
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GENERAL INFORMATION 



DZTAfaC . Nfc.W 




57 




58 




59 




b0 




bl 




62 




b3 




b4 




65 




66 




67 




68 




69 




70 




71 




72 




73 




74 


001 100 


75 




76 




77 




78 




79 


00001 1 


80 


000012 


81 


000015 


82 


000200 


83 


177776 


84 




85 


177774 


86 


177772 


87 


177570 


88 


177570 


89 




90 




91 


000000 


92 


000001 


93 


000002 


94 


000003 


95 


000004 


96 


000005 


97 


000006 


98 


000007 


99 




100 




101 




102 




103 


000000 


104 


000040 


105 


000100 


106 


000140 


107 


000200 


108 


000240 


109 


000300 


110 


000340 


1 1 1 




112 
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. SBTTL 

• * 

• * 

• «• 


OPERATIONAL 
SWITCH 


SWITCH SETTINGS 

USE 


; * 


15 


HALT ON ERROR 


I * 


1 4 


LOOP ON TEST 




13 


INHIBIT ERROR TYPEOUTS 


i * 


11 


INHIBIT ITERATIONS 




10 


BELL ON ERROR 


• ■» 


9 


LOOP ON ERROR 




8 


LOOP ON TEST IN SWR<7:0> 


; * 


7 


LOCK ON CURRENT DRIVE (ONLY 



SBTTL BASIC DEFINITIONS 

♦INITIAL ADDRESS OF THE STACK POINTER ♦♦♦ 1100 ♦♦♦ 



STACKS 


1 100 






.EQUIV 


FMT, ERROR 


; ; BASIC DEFINITION OF ERROR 


CALL 


.EQUIV 


IOT, SCOPE 


'BASIC DEFINITION OF SCOPE 


CALL 


; ♦MISCELLANEOUS DEFINITIONS 




HT= 


11 


J, "CODE FOR HORIZONTAL TAB 




LF= 


12 


J JCODE FOR LINE FEED 




CPs 


15 


JfCODE FOR CARRIAGE RETURN 




CRLFs 


200 


jjCODE FOR CARRIAGE RETURN" 


LINE FEED 


PS= 


177776 


5 J PROCESSOR STATUS WORD 




.EQUIV 


PS, PSW 






STKLMT= 


177774 


; ;STACK LIMIT REGISTER 




PIRQ= 


177772 


; ; PROGRAM INTERRUPT REQUEST 


REGISTER 


DSWR= 


177570 


; ; HARDWARE SWITCH REGISTER 




DDISP= 


177570 


; ; HARDWARE DISPLAY REGISTER 




; ♦GENERAL PURPOSE 


REGISTER DEFINITIONS 




R0= 


%0 


GENERAL REGISTER 




Rl = 


%1 


J ; GENERAL REGISTER 




R2 = 


%2 


; ; GENERAL REGISTER 




R3 = 


%3 


j ; GENERAL REGISTER 




R4 = 


%4 


; j GENERAL REGISTER 




R5 = 


%5 


;; GENERAL REGISTER 




R6 = 


%6 


GENERAL REGISTER 




R7 = 


%7 


} } GENERAL REGISTER 




.EQUIV 


R6,SP 


JJ STACK POINTER 




, EQUIV 


R7,PC 


1 J PROGRAM COUNTER 




APRIORITY LEVEL DEFINITIONS 




PR0= 





j; PRIORITY LEVEL 




PR1 = 


40 


j 5 PRIORITY LEVEL 1 




PR2 = 


100 


J 7 PRIORITY LEVEL 2 




PR3 = 


140 


J ? PRIORITY LEVEL 3 




PR4= 


200 


^PRIORITY LEVEL 4 




PR5 = 


240 


PRIORITY LEVEL 5 




PR6 = 


300 


; ;PRIORITY LEVEL 6 




PR7s 


340 


; ; PRIORITY LEVEL 7 





?*"SWITCH REGISTER" SWITCH DEFINITIONS 
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SEQ 0017 



113 


1 00000 


SWI 5= 


10000 





114 


040000 


SWi 4s 


4000C 




115 


020000 


SW1 3 = 


20000 




116 


010000 


SWI 2* 


1 0006! 




117 


004000 


SWI 1 = 


4000 






Dviv&K' 








119 


001000 


SW09- 


1 000 




1 20 


000400 




400 




121 


000200 


_2 


200 




122 


000100 


SW06"" 


100 




12 3 


000040 


SW05 = 


40 




124 


000020 


SW0 4s 


20 




125 


000010 








1 26 


000004 




4^ 




127 


000002 




2 






VVXJVXJ 1 


SW00- 






129 




FQUI V 


SW09 r 


_ 


i 














* FOP TV 


SW07 # 


SW7 






* p, ... „ 


SW06t 


SW6 


iii 




FOIITV 


SW05, 


SW5 








SW04, 


SW4 






"srniiTU 


SW03, 


SW3 


1 36 




* P" Oil I V 


SW02, 


SW2 


137 




* Foil T V 


SW01, 


SWI 






Vnnrv 
s 


SW00, 


SW0 


1 IQ 














• *D ATA 


BIT DEFINITIONS (BIT00 TO BIT15) 


1 A t 


1 IOIOIOIOiO 




100000 


i AO 


a d (A Ct 01 £4 


, ? . RTT14- 


40000 




: 


020000 




20000 




1 Ad 






10000 






10 V *I 10 V V 




4000 




146 






2000 




14 7 


001 000 


BIT09" 


1000 






000400 


B I T0 8 = 


400 




1 49 


000200 




200 




i ^? 


VVV I VXf 


HI TMh" 


100 






000040 




40 




152 


000020 


BIT04" 


20 




15 3 


0000 1 


BIT03= 


10 




i ^ 


00000 4 




4 






101010 IO 10 £. 




2 






00000 1 


BIT00- 


1 








EQUIV 


BIT09 


,BIT9 


«!« 




EQU I V 


BIT08 


,BIT8 


1 59 






BIT07 


,BIT7 


160 




, EQUIV 


BIT06 


,BIT6 


161 




.EQUIV 


BIT05 


,BIT5 


162 




.EQUIV 


BIT04 


,BIT4 


163 




,EQUIV 


BIT03 


,BIT3 


164 




.EQUIV 


B1T02 


,BIT2 


165 




.EQUIV 


BIT01 


,BITt 


166 




, EQUIV 


BIT00 


,BIT0 


167 










168 




;*BASIC 


"CPU" 


TRAP VECTOR ADDRESSES 
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DZTABC. NEW BASIC DEFINITIONS 



169 


000004 


ERRVEC= 


4 


: TIME OUT AND OTHER ERRORS 


1 70 


000010 


RESVECs 


10 


; RESERVED AND ILLEGAL INSTRUCTIONS 


171 


000014 


TBITVEC 


= 14 


;"T" BIT 


172 


000014 


TRTVEC= 


14 


; TRACE TRAP 


173 


000014 


BPTVEC= 


14 


J BREAKPOINT TRAP (BPT) 


174 


000020 


IOTVEC= 


20 


? INPUT/OUTPUT TRAP ( IOT) *#SCOPE*» 


175 


000024 


PWRVEC= 


24 


; POWER FAIL 


176 


000030 


EMTVECs 


30 


; EMULATOR TRAP (EMT) *»ERROR#* 


177 


000034 


TRAPVEC 


= 34 


; "TRAP" TRAP 


178 


000060 


TKVEC= 


60 


; TTY KEYBOARD VECTOR 


179 


000064 


TPVEC= 


64 


; TTY PRINTER VECTOR 


180 


000240 


PIRQVEC 


= 240 


j PROGRAM INTERRUPT REQUEST VECTOR 
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SEQ 0019 



181 ;TA1 1 FUNCTIONS 

182 000000 WFG= ; WRITE FILE GAP FUNCTION 

183 000002 WRITE= 2 ; WRITE FUNCTION 

184 000004 READs 4 ; READ FUNCTION 

185 000006 BSFGs 6 ; BACK SPACE FILE GAP FUNCTION 

186 000010 BSBG= 10 ; BACK SPACE BLOCK GAP FUNCTION 

187 000012 SFFGs 12 ;SPACE FWD FILE GAP FUNCTION 

188 000014 SFBGs 14 ;SPACE FWD BLOCK GAP FUNCTION 

189 000016 REWINDS 16 ; REWIND FUNCTION 

1 90 ; ; 
191 

192 ;TA1 1 BIT ASSIGNMENT 

193 100000 ERRORS BIT15 

194 040000 CRCERRs BIT14 

195 020000 LEADERS BIT13 

196 010000 WRTLOCKsBITl 2 

197 004000 FGAPs BIT11 

198 002000 TIMERRs BIT10 

199 001000 OFFLINESBIT09 

200 000400 UNIT= BIT08 

201 000200 TR.REQs BIT07 

202 000100 INT.ENs BIT06 

203 000040 READYs BIT05 

204 000020 ILBSs BIT04 

205 000010 fUNC2s BIT03 

206 000004 FUNC1= BIT02 

207 000002 FUNC0= BIT01 

208 000001 GOs BIT00 

209 000016 FUNCTIONS FUNC2+FUNC 1 +FUNC0 

210 ; ////////////////////////////////////////////////////////////////////// 

21 1 ; ////////////////////////////////////////////////////////////////////// 

212 ;////////////////////////////////////////////////////////////////////// 
213 

214 ; SPECIAL REGISTERS 

215 000003 DRIVEs %3 ;R3 CONTAINS THE DRIVE UNDER TEST 

216 000004 TACSs %4 ;R4 IS USED AS A POINTER TO THE TAGS REGISTER 

217 000005 TADBs %5 ;R5 IS USED AS A POINTER TO THE TADB REGISTER. 
218 

219 ; ////////////////////////////////////////////////////////////////////// 

220 ; ////////////////////////////////////////////////////////////////////// 
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.SBTTL TRAP CATCHER 



DZTABC.NEW 


TRAP CATCHER 


221 








222 








223 




000000 




224 








225 








226 








227 




000174 




228 


000174 


000000 




229 


000176 


000000 




230 








231 


000200 


0001 37 


001336 


232 


000204 


000137 


001370 


233 


000210 


000137 


001376 


234 


000214 


0001 37 


001404 


235 


000220 


000137 


013776 


236 


000224 


000137 


014062 


237 


000230 


000137 


014150 


238 


000234 


0001 37 


014230 


239 


000240 


000137 


014332 


240 


000244 


000137 


014426 


241 


000250 


000137 


014512 



; »ALL UNUSED LOCATIONS FROM 4-7 
;*SEGUENCE TO CATCH ILLEGAL TRAPS 
;*LOCATION CONTAINS TO CATCH 

.sl74 
DISPREG: , WORD 
SWREG: . WORD 
.SBTTL STARTING ADDRESS(ES) 



76 CONTAIN A H . + 2, HALT" 

AND INTERRUPTS 
IMPROPERLY LOADED VECTORS 

J SOFTWARE DISPLAY REGISTER 
; SOFTWARE SWITCH REGISTER 



JMP 


P9BEGIN1 


; J JUMP TO STARTING ADDRESS OF PROGRAM 


JMP 


MBEGIN2 


; SELECT DRIVE(S) BEFORE STARTING TEST 


JMP 


P8BEGIN3 


; SELECT DRIVE(S) AND ADDRESSES BEFORE TESTING 


JMP 


PSBEGIN4 


; SETUP FOR MANUAL LOOPING 


JMP 


QSWFGSUb 


; WRITE FILE GAP FROM BOT TO EOT 


JMP 


P8WRTSUB 


; WRITE CONTINUOUS BLOCKS OF DATA 


JMP 


9#PDSUB 


; READ CONTINUOUS BLOCKS OF DATA 


JMP 


P#WGPBLK 


;WRITE FILE GAP AND A BLOCK OF DATA 


JMP 


9SRGPBLK 


; READ BLOCK OF DATA AND INTO A FILE GAP 


JMP 


@9SFFGSB 


; SPACE FWD FILE GAP FROM BOT TO EOT 


JMP 


i#BSFGSB 


; BACK SPACE FILE GAPS 
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SEQ 0021 











243 






J////////////////////////////////////////////////////////////////////// 








;////////////////////////////////////////////////////////////////////// 


245 








2 46 






; THE FOLLOWING ROUTINES CAN BE TOGGLED IN . 










248 






;////////////////////////////////////////////////////////////////////// 


249 








250 








251 






. REM J 


252 








25 3 








25 4 






THE FOLLOWING ROUTINES ( LOOP1 , LOOP2 , L 1.00P3 ) CAN BE TOGGLED 


255 






IN WHEN I T IS IMPOSSIBLE TO LOAD THE DIAGNOSTICS 


256 








25 7 






NOTE : BEFORE USING THESE ROUTINES INSURE THAT R 3 , R 4 • & R5 


258 






ARE SETUP PROPERLY. 


259 








260 






** NOTE! IF USING SOFTWARE SWITCH REGISTER 


261 






LOCATION SWR (=1140) MUST CONTAIN 


262 






ADDRESS " SWPEG" (=176), 


26 3 






♦ *» PUT VALUE INTO 176 *»* 


264 






** REGISTERS 3,4,&5 MUST BE SETUP** 


265 






** VIA MOVE INSTRUCTIONS ** 


266 






R3 = IF USING DRIVE A 


267 






400 IF USING DRIVE B 


268 








269 






- 

R4= TA11 STATUS REG ADDRESS ( TAC S 177500) 


270 








271 






R5 = TA1 1 DATA BUFFER ADDRESS ( TADB 177502) 


272 








27 3 






LOOP1 WILL LOAD THE SWITCH REGISTER INTO THE TACS , 


27 4 








275 






LOOP2 WILL WRITE THE CONTENTS OF THE SWITCH REGISTER 


276 






ALL THE WAY TO END-OF-T APE ( EOT ) . 


27 7 








27 8 






LOOP3 WILL READ TO EOT. DATA WILL GO TO R0. 


279 








280 






NOTE; L00P2 AND LOOP3 WILL REWIND WHEN EOT I S REACHED AND 


281 






THEN START OVER . 


282 








28 3 








284 








285 








286 






; LOAD SWITCH REGISTER I N TO THE TACS 










288 








289 




000500 


. = 500 


290 








291 


000500 


017714 000434 


LOOP1 : MOV PSWP, PTACS ; LOAD TACS 


292 


000504 


000775 


BR LOOP1 ;LOOP 


29 3 








294 
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DZTABC. NEW 




WRITE SWITCH REGISTER 


ON TAPE 


FROM BOT TO EOT 




295 








296 














297 








j WRITE 


: SWITCH REGISTER ON 


TAPE FROM BOT TO EOT 


298 








299 




000600 




.=600 






300 














301 


000600 


000005 


LOOP2: 


: RESET 




;CLEAR ALL FLAGS 


302 


000602 


010314 




MOV 


DRIVE, PTACS 


; SELECT DRIVE 


303 


000604 


1 12714 


000017 


MOVB 


#REWIND!GO,0TACS 


;GO TO BOT 


304 


000610 


032714 


000040 1$: 


BIT 


♦READY, PTACS 


;WAIT TILL READY COMES UP 


305 


000614 


001775 




BEO 


IS 




306 


000616 


1 12714 


000003 


MOVB 


#WRITE1G0, PTACS 


; START A WRITE 


307 


000622 


105714 


2$: 


TSTB 


PTACS 


; CHECK FOR TRANSFER REQUEST 


308 


000624 


100003 




BPL 


3$ 


; BR IF NOT SET 


309 


000626 


017715 


000306 


MOV 


PSWR, PTADB 


; SEND DATA TO TA 1 1 


310 


000632 


000773 




BR 


2$ 


jLOOP 


311 


000634 


032714 


000040 3$: 


BIT 


♦READY, PTACS 


;D1D READY SET? 


312 


000640 


001357 




BNE 


LOOP2 


; START OVER IF YES 


313 


000642 


000767 




BP 


2$ 


f LOOP 


314 














315 














316 














317 














318 








; READ 


FROM BOT TO EOT 




319 














320 














321 




000700 




. = 700 






322 














323 


000700 


000005 


LOOP3: 


! RESET 




; CLEAR ALL FLAGS 


324 


000702 


010314 




MOV 


DRIVE, PTACS 


; SELECT DRIVE 


325 


000704 


1 12714 


000017 


MOVB 


♦REWINDIGO, PTACS 


; START A REWIND 


326 


000710 


032714 


000040 1$: 


BIT 


•READY, PTACS 


•WAIT ON REWIND TO FINISH 


327 


000714 


001775 




BEO 


IS 




328 


000716 


112714 


000005 


MOVB 


♦READ! GO, PTACS 


j START A READ 


329 


000722 


105714 


2$: 


TSTB 


PTACS 


;CHECK TRANSFER REQ 


330 


000724 


100002 




BPL 


3$ 


t BR IF NOT SET 


331 


000726 


011500 




MOV 


PTADB, R0 


;PICKUP THE DATA 


332 


000730 


000774 




BR 


2$ 


;LOOP 


333 


000732 


032714 


000040 3$ : 


BIT 


♦READY, PTACS 


;CHECK READY 


334 


000736 


001360 




BNE 


LOOP3 


; START OVER 


335 


000740 


000770 




BR 


2$ 


;LOOP 


336 
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SEG 0023 



337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 



, SBTTL COMMON TAGS 

• j »#**#♦#**»##*#*#**♦##♦»###*##***«♦♦♦**♦###♦♦#♦*♦*#*♦♦* 

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;#USED IN THE PROGRAM. 



»***»«** 





001 1 00 




= 11 00 






00 1 1 00 




$CMTAG{ 






• START OF COMMON TAGS 


00 1 1 00 






WORD 





•CONTAINS PASS COUNT 


00 1 1 02 


000 


STSTNM ! 


.BYTE 





{CONTAINS THE TEST NUMBER 


001 103 


000 


SERFLGs 


.BYTE 





{CONTAINS ERROR FLAG 


00 1104 


000000 









•CONTAINS SUBTEST ITERATION COUNT 


(ALU 1 1 Oifs 


n a sua (A a 


SLPADR* 


'word 




•CONTAINS SCOPE LOOP ADDRESS 


nai i ! -> 


000000 


SLPERR* 


"word 





•CONTAINS SCOPE RETURN FOR ERRORS 








* WORD 






001 1 1 4 






*BYTE 
" _ 





•CONTAINS I TEM CONTROL BYTE 




0(H 


SERMAX' 






•CONTAINS MAX ERRORS PER TEST 


001116 


000000 


SERRPC : 


* WORD 





•CONTAINS PC OF LAST ERROR INSTRUCTION 


00 1 120 


000000 


SGDADR : 


"word 





•CONTAINS ADDRESS OF 'GOOD' DATA 


00 1122 


vvtix?x/v 


SBDADR ; 


WORD 




•CONTAINS ADDRESS OF 'BAD* DATA 




ClOktAlAtAtA 
Vvtrvx/*} 


$ GDD AT : 









001 1 26 


000000 


$ BDDAT ; 


*WORD 





•CONTAINS 'BAD* DATA 








'word 






001 1 32 


aaaaaa 
vvvvav 




* non 






00 1134 




fi &11TOR • 

9mU1UDi 


*BYTE 




• AUTOMAT IC MODE INDICATOR 




000 


SlNTAG; 


BYTE 




• INTERRUPT MODE INDICATOR 


001136 


10 10 ¥7 1017 











00 1 1 40 


177570 


SWR* 


WORD 


DSWR 


• ADDRESS OF SWITCH REGISTER 






DISPLAY : 




DDISP 


•ADDRESS OF DISPLAY REGISTER 


001 14 4 


177560 




1 77560 




•TTY KBD STATUS 


00 1 i 




S TKR * 
_ * 






. t?y KRn RIJFFFR 

till I\OU Di J r C &n 




177564 




177564 




•TTY PRINTER STATUS PEG ADDRESS 


001 1 52 


1 77566 


STPB* 


1 77566 




• TTY PRINTER BUFFER REG ADDRESS 


001 154 




$NULL : 


BYTE 





•CONTAINS NULL C HARACTER FOR F ILLS 


001 155 


002 


$F ILLS; 


BYTE 


2 


•CONTAINS # OF FILLER CHARACTERS REQUIRED 




012 


$FILLC: 


.BYTE 


12 


; INSERT FILL CHARS. AFTER A "LINE FEED" 


001 157 




STPFLGs 


.BYTE 





j "TERMINAL AVAILABLE" FLAG (BIT<07>s0=YES) 


001 160 


000000 


SPEGAD: 


. WORD 





{CONTAINS THE ADDRESS FROM 












•WHICH (SREG0) WAS OBTAINED 


00 116 2 


000000 


SREG0: 


. WORD 





{CONTAINS ( ( $REGAD ) +0) 


00 1164 


000000 


$REG1 : 


, WORD 





{CONTAINS ( ( S REGAD ) +2 ) 






STIMES: 







{MAX. NUMBER OF ITERATIONS 


001 170 


000000 


SESCAPE: 







{ ESCAPE ON ERROR ADDRESS 


001 1 72 


177607 000377 


SBELL: 


.ASCIZ 


<207><377><377> 


{CODE FOR BELL 


001176 


077 


SQUES: 


.ASCII 


/?/ 


{ QUESTION MARK 


001 177 


015 


SCRLF: 


.ASCII 


<15> 


{CARRIAGE RETURN 


001200 


000012 


SLF: 


.ASCIZ 


<12> 


{LINE FEED 






; ; *##***♦«*#♦*»*###***#*«♦»*#♦**#«•*****#**#***#*»#*##♦#♦»♦#**#*** 


001202 


000000 


savpC; 


. WORD 





{ STORAGE FOR THE PC 


001204 


000000 


savps; 


.WORD 





{STORAGE FOR THE PS 


001206 


177500 


TACSL: 


177500 




{LOW BYTE ADDRESS OF TACS 


001210 


177501 


TACSH: 


177501 




{HIGH BYTE ADDRESS OF TACS 


001212 


177502 


TADBLS 


177502 




{ LOW BYTE ADDRESS OF TADB 


001214 


177503 


TADBHS 


177503 




{HIGH BYTE ADDRESS OF TADB 


001216 


000260 000262 


TAVEC: 


260,262 




{TA11 VECTOR ADDRESS 
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393 
394 
395 
396 
397 



001 222 
00122 4 

001230 
001232 
001234 



000300 

000000 000000 
001224 



TAPRIO: 300 

DP.VKEY: 0,0 

DPVPNT: DRVKEY 

ASKKEY: 

CURDRV: 



{TAll BR LEVEL 6 
{DRIVE SELECT KEY: 



{CURRENT DRIVE BEING TESTED 
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SEQ 0025 



398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 



001236 
001240 
001242 
001244 



001246 
001250 
001252 
001254 



001256 
001260 
001262 
001264 



001266 
001270 
001272 
001274 



001276 
001300 
001302 
001304 



001306 
001310 
001312 
001314 



017066 
017256 
017420 



017105 
017273 
017426 



017133 

017273 
017426 
000000 



017174 
017273 
017426 



017217 
017330 
017436 



017234 
017366 
017450 



, SBTTL ERROR POINTER TABLE 

j*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

I #THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;«LOCATION $ ITEMB » THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

j*NOTEl : IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC) . 

;#NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS : 



EM 
DH 
DT 
DF 



SERRTB: 
; NOTE : 
J ITEM 



; ITEM 



j ; POINTS TO THE ERROR MESSAGE 

1 ; POINTS TO THE DATA HEADER 

; ;POINTS TO THE DATA 

; ; POINTS TO THE DATA FORMAT 



ALL NUMBERS ARE TYPED AS 6-DIGIT OCTAL NUMBERS 



1 

EMI 
DH1 

DTI 



2 

EM2 

DH2 
DT2 



3 

EM3 
DH2 
DT2 


4 

EM4 
DH2 
DT2 



5 

EM5 
DH5 
DT5 



EM6 
DH6 
DT6 



; STATUS PROBLEM 
j PC TACS 
; SERRPC SPEG0 



; READY FAILED TO SET 

;PC TACS WAIT ADDRESS 

•SERRPC SREG0 SAVPC 



^TRANSFER REQUEST FAILED TO SET 
5 PC TACS WAIT ADDRESS 

I SERRPC SREG0 SAVPC 



; THE WRONG FLAG SET 

;PC TACS WAIT ADDRESS 

f SERRPC SREG0 SAVPC 



j DATA PROBLEM 
;PC TACS 
; SERRPC SREG0 



EXPECT 
SGDDAT 



RCV'D 
SBDDAT 



; INTERRUPT PROBLEM 

;PC TACS BR LEVEL 

; SERRPC SREG0 SGDDAT 



TA11 BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB-C 



MACY11 27(732) ll-JUN-76 13:26 PAGE 12 



DZTABC.NLW 


ERROR POINTER TABLE 






453 


001316 




ITEMS2: 


; ITEMS 201-202 


454 










455 


001 316 


017472 


EM201 


jTAH FAILED TO RESPOND 


456 


001320 


017544 


DH201 


1 PC TACS 


457 


001322 


017460 


DT201 


; SERRPC TACS 


458 


001324 


000000 





; BOTH NUMBERS ARE TYPED 


459 










460 


001326 


017521 


EM202 


;NO DRIVES AVAILABLE 


461 


001330 


017561 


DH202 


?PC 


462 


001332 


017466 


DT202 


j SERRPC 


463 


001334 


000000 







464 











TA11 BASIC LOGIC TEST (PART 2) MAINDEC-1 1-DZTAB-C 
DZTABC.NEW START OF TEST 



MACY11 27(732) ll-JUN-76 13:26 PAGE 13 



SEQ 0027 



465 








466 








467 








468 








469 








470 








47 1 








472 








473 








474 








475 








476 


001 336 


005005 




477 


001 340 


012737 


041 101 


478 


001 346 


122737 


000005 


479 


001354 


001015 




480 


001 356 


022737 


000260 


481 


001 364 


001011 




482 


001 366 


000403 




483 


001 370 


012705 


000001 


484 


001374 


000405 




485 


001 376 


012705 


000002 


486 


001402 


000402 




487 


001 404 


012705 


000003 


488 


001 410 






489 








490 








491 


001 410 


012706 


001 100 


492 


001414 


005026 




493 


001 416 


022706 


001 140 


494 


001 422 


001 374 




495 


001 424 


012706 


001 100 


496 








497 


001430 


012737 


012264 


498 


001436 


012737 


000340 


499 


001 444 


012737 


012536 


500 


001452 


012737 


000340 


501 


001460 


012737 


016476 


502 


001466 


012737 


000340 


503 


001 474 


012737 


016562 


504 


001502 


012737 


000340 


505 


001510 


016767 


010476 


506 


001516 


005067 


177444 


507 


001522 


005067 


177442 


508 


001526 


112767 


000001 


509 


001534 


012767 


001534 


510 


001542 


012767 


001542 


51 1 








512 








513 


001550 


013746 


000004 


514 


001 554 


0127 37 


001610 


515 


001562 


012767 


177570 


516 


001570 


012767 


177570 


517 


001576 


022777 


177777 


518 


001604 


001012 




519 








520 


001606 


000403 





001224 
000041 



000020 
000022 



000032 
000034 
000036 
000024 
000026 
010466 



177361 
177344 
177340 



j////////////////////////////////////////////////////////////////////// 
?////////////////////////////////////////////////////////////////////// 

; BEGIN 1 IS FOR NORMAL START 

;BEGIN2 IS FOR DRIVE SELECTION 

; BEGIN3 IS FOP DRIVE & ADDRESS SELECTION 

; BEGIN4 IS FOR MANUAL OPERATION 



»***«****«« 



BEGINS: 

BEGIN4: 
BGNCMN: 
. SBTTL 
; ; CLEAR 



CLR 


R5 


; NORMAL START 


MOV 


#"AB,P#DRVKEY 




CMPB 


#5,9#41 


;CASSETTE DDP? 


BNE 


BGNCMN 


jGO BEGIN COMMON CODE IF NO 


CMP 


#260,P#TAVEC 


; STANDARD VECTOR? 


BNE 


BGNCMN 


;GO BEGIN COMMON CODE IF NO 


BR 


BEGIN3 


; GET DRIVES AND ADDRESSES 


MOV 


#1,R5 


j ASK FOR DRIVES FLAG 


BR 


BGNCMN 


; BEGIN COMMON CODE 


MOV 


#2,R5 


; ASK FOR DRIVES AND ADDRESSES 


BR 


BGNCMN 




MOV 


#3,P5 





JjSIZE 
; j EQUAL 



177350 
177344 
177334 



INITI 
THE C 
MOV 
CLR 
CMP 
BNE 
MOV 
ALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOVB 
MOV 
MOV 
FOR A 
TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 

BR 



ALIZE THE COMMON TAGS 
OMMON TAGS (SCMTAG) AREA 

#$CMTAG,R6 ? ;FIRST LOCATION TO BE CLEARED 

(R6)+ ; ;CLEAR MEMORY LOCATION 

#SWR,R6 } j DONE? 

.-6 yjLOOP BACK IF NO 

♦STACK, SP ; ;SETUP THE STACK POINTER 

A FEW VECTORS 

t$SCOPE,?tIOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
»340,IMIOTVEC + 2 J J LEVEL 7 

*$ERROR,e»EMTVEC J ; EMT VECTOR FOR ERROR ROUTINE 
#340,@«EMTVEC+2 ; ; LEVEL 7 

#$TRAP,9#TRAPVEC i j TRAP VECTOR FOR TRAP CALLS 
#340, PITRAPVEC+2;LEVEL 7 

#$PWRDN,@IPWRVEC ; ; POWER FAILURE VECTOR 
#340,P#PWRVEC+2 ; ; LEVEL 7 

$ENDCT,$EOPCT ; J SETUP END "OF -PROG RAM COUNTER 
ST1MES INITIALIZE NUMBER OF ITERATIONS 

S ESCAPE ; ; CLEAR THE ESCAPE ON ERROR ADDRESS 

#1,$ERMAX ; ; ALLOW ONE ERROR PER TEST 

#.,$LPADP INITIALIZE THE LOOP ADDRESS FOR SCOPE 

#„,$LPERR ; ? SETUP THE ERROR LOOP ADDRESS 

HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
"-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 

fjSAVE ERROR VECTOR 
? SET UP ERROR VECTOR 

JSETUP FOR A HARDWARE SWICH REGISTER 
; AND A HARDWARE DISPLAY REGISTER 
;TRY TO REFERENCE HARDWARE SWR 
JBRANCH IF NO TIMEOUT TRAP OCCURRED 
I AND THE HARDWARE SWR IS NOT = -1 
; BRANCH IF NO TIMEOUT 



i#ERRVEC,-(SP) 

#64$,PfERRVEC 

#DSWR,SWR 

#DD ISP, DISPLAY 

»-l,?SWR 

66$ 

65$ 
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521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 



001610 012716 001616 

001614 000002 

001616 012767 000176 

001624 012767 000174 

001632 012637 000004 



001636 005227 177777 

001642 001036 

001644 022737 012232 

001652 001432 

001654 104401 001712 



177314 
177310 



001660 005737 
001664 001006 



001666 
001674 
001676 
001700 
001702 
001710 
001710 

001740 



001740 
001742 
001744 
001746 
001752 
001754 
001756 



026727 
001005 
104405 
000403 
1 12767 

000413 



000042 

177246 000176 



1 177224 



010504 
005305 
002406 

004737 013254 

005305 
002402 

004737 013364 



64$: 


MOV 


#65$, (SP) 


; JSET UP FOR TRAP RETURN 




RTI 






65$: 


MOV 


«5WREG,SWR 


; fPOINT TO SOFTWARE SWR 




MOV 


IDISPPEG, DISPLAY 


66$: 


MOV 


(SP)+,@#ERRVEC 


RESTORE ERROR VECTOR 


.SBTTL 


TYPE PROGRAM NAME 




jjTYPE 


THE NAME 


OF THE PROGRAM 


IF FIRST PASS 




INC 


#-1 


; ;FIRST TIME? 




BNE 


HERE 


; J BRANCH IF NO 




CMP 


#$ENDAD,9#42 


; jACT-tl? 




BEG 


HERE 


; ; BRANCH IF YES 




TYPE 


,MSG1D 


J JTYPE ASCIZ STRING 


«SBTTL 


GET VALUE FOR SOFTWARE 


SWITCH REGISTER 




TST 


3#42 


; : ARE WE RUNNING UNDER XXDP/ACT? 




BNE 


67$ 


; ; BRANCH IF YES 




CMP 


SWR,«SWREG 


; ^SOFTWARE SWITCH REG SELECTED? 




BNE 


68$ 


; ; BRANCH IF NO 




GTSWR 




I J GET SOFT-SWR SETTINGS 




BP 


68$ 




67$: 

68$: 


MOVB 


#l,$AUTOB 


? ;SET AUTO-MODE INDICATOR 




BR 


HERE 


J J GET OVER THE ASCIZ 


; ;MSGID: 


.ASCIZ <CRLF>/MAINDEC-11 -DZTAB-C /<CRLF> 



HERE: 

t THE CONTENTS OF R5 DETERMINES WHAT WILL BE DONE 

i R5=3 MANUAL OPERATIONS 

R5=2 ASK FOR DRIVE(S) AND ADDRESSES (TACS AND VECTOR) 

? R5=l ASK FOR DRIVE(S) 

1 R5s0 DON'T ASK FOR ANYTHING 



BEGINX: 



MOV 
DEC 
BLT 
JSR 
DEC 
BLT 
JSR 



R5,R4 
R5 

CHKADR 
PC,e#ASKDRV 

R5 

CHKADR 
PCetASKADR 



I j «*»*«« 



fCOPY R5 

;ASK FOR DRIVES? 
;BR IF NO 

;GO GET DRIVES TO BE TESTED 
I ASK FOR ADDRESSES? 
?BR IF NO 

JGO GET TAU ADDRESSES 



f CHECK THAT 
I, 



"TACS" WILL RESPOND TO ADDRESSING 



TIMEOUT OCCURRED 
A 9 TYPE ERROR MESSAGE 
B. EXAMINE R4 

1. R4>0 GOTO BEGINX 

2. R4«s0 EXAMINE (42) 

A, (42)s0 GOTO BEGINX 

B. (42)>0 GOTO SENDAD 
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DETABC 


NEW 


GET VALUE FOR SOFTWARE 


SWITCH REGISTER 






577 








jll. 


TIMEOUT 


DIDN'T OCCUR 




578 










A. CONTINUE 




579 








i 








580 










**»**«****«***«****•*»****** 


581 


001762 


012737 


002000 000004 


CHKADR: 


MOV 


#1$,P#ERRVEC 


;IN CASE OF TIMEOUTS 


582 


001770 


005000 






CLR 


R0 


;USE AS A SWITCH 


583 


001772 


005777 


177210 




TST 


§TACSL 


;SEE IF TA11 RESPONDS 


584 


001776 


000402 






BR 


2$ 


;BR IF NO TIMEOUT 


585 


002000 


005200 




IS S 


INC 


R0 


;COME HERE ON TIMEOUT 


586 


002002 


022626 






CMP 


(SP)+, (SP)+ 


;CLEANUP THE STACK 


587 


002004 


012737 


000006 000004 


2$: 


MOV 


#ERRVEC+2,@#ERRVEC 


; RESTORE TIMEOUT VECTOR 


588 


002012 


005700 






TST 


R0 


jDID A TIMEOUT OCCUR? 


589 


002014 


001 414 






BEQ 


3$ 


i BR IF NO 


590 


002016 


104201 






ERROR 


201 


;TA11 FAILED TO RESPOND 


591 


002020 


01 2705 


000002 




MOV 


#2,R5 


;DRIVES & ADDRESSES 


592 


002024 


005704 






TST 


P4 


; OPERATOR INPUTS? 


593 


002026 


001344 






BNE 


BEGINX 


; BR IF YES 


594 


002030 


013700 


000042 




MOV 


g#42, R0 


; GET MONITOR RETURN ADDRESS 


595 


002034 


001741 






BEQ 


BEGINX 


; BR IF NO MONITOR 


596 


002036 


000137 


012232 




JMp 


§#$ENDAD 


;GO TO END 


597 


002042 


005077 


177152 




CLR 


gTAVEC+2 




598 


002046 






3$: 
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DZTABC.NEW GET VALUE FOR SOFTWARE SWITCH REGISTER 

599 • • 

600 ; • **«***«***#»**«**»«**«*«*«*«*«***«******»#*»«*»*«»********»«### 

601 

602 ; MAKE SURE THE DRIVES IN THE DRIVE TABLE CAN BE TESTED 

603 j 

604 ; I . DESIRED DRIVES CAN NOT BE TESTED 

605 ; A, TYPE ERROR MESSAGE 

606 ; B. EXAMINE R4 

607 | 1. P4>0 GOTO BEGINX 

608 ; 2. P4=0 EXAMINE (42) 

609 ; A. (42)=0 GOTO BEGINX 

610 j B. (42)>0 GOTO SENDAD 

611 ; 

612 jll. BOTH DRIVES IN THE TABLE BUT ONLY ONE OF THEM CAN BE TESTED 

613 j A, CLEAR BAD DRIVE FROM THE DRIVE TABLE 

614 ; B. CONTINUE IN PROGRAM 

615 ; 

616 ; III , DESIRED DRIVE(S) CAN BE TESTED 

617 ? A. CONTINUE IN PROGRAM 

618 ; 

619 t ; 



620 


002046 


012700 


001224 


CHKDRV: 


MOV 


SDRVKEYf R0 


;PICKUP ADDRESS OF ASCII DRIVE 


621 


002052 


004737 


015046 




JSR 


PC,$#EXAM 


,-GO EXAMINE FIRST DRIVE 


622 


002056 


000410 






BR 


IS 


;OK TO TEST GO CHECK NEXT 


623 


002060 


116010 


000001 




MOVB 


HR0), (R0) 


; REPLACE 1ST WITH 2ND 


624 


002064 


001412 






BEQ 


2$ 


; BR IF NO 2ND DRIVE SELECTED 


625 


002066 


004737 


015046 




JSR 


PC,a#EXAM 


;GO EXAMINE DRIVE 


626 


002072 


000407 






BR 


2$ 


J OK TO TEST 


627 


002074 


005010 






CLR 


(R0) 


; CLEAR DRIVE CODES 


628 


002076 


000405 






BR 


2S 




629 


002100 


005200 




IS: 


INC 


R0 


; POINT TO 2ND 


630 


002102 


004737 


015046 




JSR 


PC,3#EXAM 


;GO EXAMINE DRIVE 


631 


002106 


000401 






BR 


2$ 


;OK TO TEST 


632 


002110 


105010 






CLRB 


(R0) 


y CLEAR 2ND 


633 


002112 


012700 


001224 


2Sf 


MOV 


#DRVKEY,R0 


; RESET ADDRESS POINTERS 


634 


002116 


010037 


001230 




MOV 


R0,a#DRVPNT 




635 


002122 


121060 


000001 




CMPB 


(R0) , 1 (R0) 


;1ST a 2ND? 


636 


002126 


001002 






BNE 


3$ 


; BR IF NO 


637 


002130 


105060 


000001 




CLRB 


1 (R0) 


• YES— CLEAR 2ND 


638 


002134 


005710 




3$: 


TST 


(R0) 


; ANY DRIVES? 


639 


002136 


001401 






BEQ 


5$ 


; BR IF NO 


640 


002140 


000412 






BR 


MANUAL 




641 


002142 


104202 




5SS 


ERROR 


202 


;NO DRIVES AVAILABLE 


642 


002144 


012705 


000002 




MOV 


#2,R5 


jDRIVES & ADDRESS 


643 


002150 


005704 






TST 


R4 


.•OPERATOR INPUTS? 


644 


002152 


001272 






BNE 


BEGINX 


; BR IF YES 


645 


002154 


013700 


000042 




MOV 


§#42, R0 


; GET MONITOR RETURN ADDRESS 


646 


002160 


001667 






BEQ 


BEGINX 


jNO MONITOR 


647 


002162 


000137 


012232 




JMP 


SENDAD 


;GO TO END 


648 


002166 


020427 


000003 


MANUAL: 


CMP R4, 


#3 




649 


002172 


001002 






BNE 


OK 




650 


002174 


016704 


175577 




MOV 


«1,R4 




651 


002200 


010437 


001232 


OK; 


MOV 


R4f @# ASKKEY 




652 


002204 


000405 






BR 


START 




653 


002206 


104401 


001712 


PWRST: 


TYPE 


,MSGID 


; POWER FAIL RESTART 


654 


002212 


012737 


001224 001230 




MOV 


»DRVKEY,S#DRVPNT 
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SEQ 0031 



655 


002220 


013777 


001 220 


176770 


START 


MOV 


?#TAVEC*2 1 PTAVEC 




{SETUP TA11 TRAP VECTOR 


656 


002226 


005077 


176766 






CLR 


gTAVEC+2 






657 


002232 


012737 


000340 


177776 




MOV 


% 340, (3#PS 




; LOCKOUT ALL I/O INT 


658 


002240 


01 3704 


001 206 






MOV 


?#TACSL» TACS 




; SETUP TACS 


659 


002244 


01 3705 


001 21 2 






MOV 


£#TADBL, TADB 




;SETUP TADB 


660 


002250 


0057 37 


001 100 






TST 


fMSPASS 




• if FIRST PASS SETUP FOP EXTRA LONG 


661 


002254 


00100 3 








BNE 


1 S 




; OTHERWISE USE OLD VALUES 


662 


002256 


0127 37 


077777 


013150 




MOV 


#*CBIT15,?#MAXCNT 






66 3 


002264 


005037 


00 1102 




IS; 


CLR 


§#STSTNM 




•ZERO THE TEST NUMBER 


664 


002270 


00500 3 








CLR 


DRIVE 




•SET DRIVE TO "A" 


665 


002272 


013701 


00 1230 






MOV 


9#DRVPNT, Rl 




•GET DRIVE POINTER 


666 


002276 


121127 


000101 






CMPB 


( Rl ) » # ' A 




. is if DRIVE "A"? 




P02 302 


00 1402 














• RR IF YKS 
f or ± r iCio 


668 


002 304 


012703 


000400 






MAU 


1 jjfj IT op j y£ 




•SET DRIVE TO "B" 




002 310 








THRV • 
* 










670 


002 310 


1 04401 


002 3 1 6 






TYPE 


1 65$ * 


• TYPE 


ASCIZ STRING 


6 71 


002 3 1 4 


000 411 








BR 


6 4$ * 


. GEf 


OVER THE ASCIZ 


67 2 










* * 65 $ 


. ASCIZ 


<15><1 2>*TESTING 


DRIVE 






CI CIO "J ACI 








64S : 










67 4 


M C1 1 1 A 01 


1 12167 


176670 






MOVB 


(Rl ) + » C URDRV 




•SETUP TO TYPE CURRENT DRIVE 


675 


002 3 44 


104401 


001 2 34 






TYPE 








6 76 


002 350 


10 4 40 1 


00 1177 






TYPE 


, SCRLF 




. TYPE A CR & LF 


677 














( R 1 ) 




•LAST DRIVE BEEN SELECTED 


678 


002 356 


00 1 002 








BNE 






•BR IF NO 


679 


002 360 


012701 


001 224 






MOV 


#DRVKEY, Rl 




; RESET DRIVE POINTER 




002 36 4 




001 230 




1 s • 
* 


MOV 


Rl # g » DR VPN T 




•SAVE DRIVE POINTER FOR NEXT TIME 


681 


002 370 


005737 


00 12 32 






TST 


@ # ASKKEY 




•GO START TESTING IF NO MANUAL 


68 2 


002374 


002007 








BGE 


2$ 




• OPERATIONS REQUESTED 


68 3 


002376 


005000 








CLR 


R0 






68 4 


002 400 


000000 








HALT 






•GIVE CONTROL TO THE OPERATOR 


685 


002402 


022767 


000 17 6 


176530 




CMP 


# SWREG, SWR 




; USING S/W SWITCH REG „ ? 


686 


002 410 


00 1001 








BNL 


20$ 




;N0- GET OUT 


68 7 




1 04405 








GTSWR 






•LET HIM CHANGE IT 




002 4 1 4 








20$ : 








•CONTINUE 


689 










; THIS 


CODE IS 


FOR ACT11 & DDP 






690 


002414 


005737 


000042 




2 $ : 


TST 


?#42 




; IS THERE A MONITOR? 


691 


002420 


001406 








BEG 


TST1 




;G0 START TESTING IF NO 


692 


002422 


010314 








MOV 


DRIVE, 9TACS 




; IF YES SELECT DRIVE 


693 


002424 


112714 


000017 






MOVB 


•REWIND! GO, »TACS 




; SEND TAPE TO BOT 


694 


002430 


032714 


000040 




3$s 


BIT 


#READY,?TACS 




;WAIT ON READY 


695 


002434 


001775 








BEQ 


3$ 




; FALL THRU IF READ Y= 1 
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DZTABC. NEW 


GET VALUE FOP 


SOFTWARE 


696 










697 










698 










699 










700 










701 










702 










703 










704 


002436 


000004 






705 


002440 


012767 


000001 


176520 


706 


002446 


005737 


001100 




707 


002452 


001021 






708 


002454 


000005 






709 


002456 


010314 






710 


002460 


112714 


000017 




711 


002464 


104412 






712 


002466 


112714 


000001 




713 


002472 


104412 






714 


002474 


163737 


013124 


013150 


715 


002502 


005237 


013150 




716 


002506 


006137 


013150 




717 


002512 


0061 37 


013150 




718 










719 










720 










721 










722 










723 










724 










725 


002516 


000004 






726 


002520 


012767 


000012 


176440 


727 


002526 


012767 


002554 


176352 


728 


002534 


012767 


002656 


176426 


729 


002542 


000005 






730 


002544 


010314 






731 


002546 


112714 


000017 




732 


002552 


104412 






733 


002554 


112714 


000003 




734 


002560 


104413 






735 


002562 


105714 






736 


002564 


100401 






737 


002566 


104001 






738 


002570 


005015 






739 


002572 


005000 






740 


002574 


005001 






741 


002576 


105714 






742 


002600 


100405 






743 


002602 


062700 


000010 




744 


002606 


005501 






745 


002610 


100372 






746 


002612 


104001 






747 


002614 


105714 






748 


002616 


100005 






749 


002620 


162700 


000001 




750 


002624 


005601 






751 


002626 


100372 







/J/////////////////////// 

THIS ISN'T A PEAL TEST BUT A SMALL ROUTINE TO DETERMINE THE MAX. 
TIME FOR THE WAIT LOOPS (WAIT FOR "READY" AND "TRANSFER REQUEST" ) 
}#*#*##*»##*♦#*##«»*♦#*»«####»♦#*♦*»*#♦♦*#♦♦#♦#*♦»####*♦♦**»###♦ 
*TEST 1 ROUTINE TO DETERMINE TIME OF WAIT LOOPS 

• ***#**»«»*****«««*#*****»*•«««*****«*«*#*»«***»**»**««#*««***** 
TSTl: SCOPE 

#1 ,$TIMES ; ;D0 1 ITERATION 

@«$PASS ; IS THIS THE FIRST PASS? 

TST2 ; j BR IF NO 



MOV 
TST 
BNE 
RESET 
MOV 
MOVB 



DRIVE, STACS 
IREWIND1G0, PTACS 
WAITREADY 

MOVB «WFG!G0f PTACS 

WAITREADY 

SUB MHGHTIM,P#MAXCNT 
INC giMAXCNT 
ROL g#MAXCNT 
ROL PtMAXCNT 



; SELECT THE DRIVE 
; START A REWIND 
;WAIT FOR READY 
;WRITE A FILE GAP 
; WAIT ON READY 
; GET THE TIME IT TOOK 
; MAKE IT BIGGER 



////////////////////////////////////////////////////////////////////// 
THE FOLLOWING TEST WILL CHECK TIMING ERRORS FOR BOTH "WRITE" AND "READ" 
////////////////////////////////////////////////////////////////////// 
• ****«««*»*«««*«*«***»**«»*•«*»»»*»******«***»*#»*«««»#****«*«*» 



*TEST 2 



TEST "TIMING ERROR" FOR "WRITE" 



SCOPE 










MOV 


810.,STIMES 


;D0 1 


0. ITERATIONS 


MOV 


#7$ , SLPADR 


;SET 


SCOPE LOOP ADDRESS 


MOV 


#TST3, 


SESCAPE 


; ESCAPE TO TEST 3 ON ERROR 


RESET 










MOV 


DRIVE, 


PTACS 




; SELECT DRIVE 


MOVB 


#REWINDJG0,9TACS 




;G0 TO "CLEAR LEADER" 


WAITREADY 






;WAIT ON "READY" 


MOVB 


#WRITE!GO,eTACS 




jWRITE FUNCTION 


WAITXFER 






; WAIT ON "XFER REQ" 


TSTB 


&TACS 






;IS " XFER REQ" = 1 


BMI 


1$ 






J BR IF YES 


ERROR 


1 






jNO "XFER REQ" OCCURRED 


CLR 


PTADB 






; KNOCK DOWN "XFER REQ" 


CLR 


R0 






; CLEAR COUNTER 


CLR 


Rl 








TSTB 


gTACS 






j WAIT FOR "XFER REQ" 


BMI 


3$ 








ADD 


#10, R0 






; KEEP TRACK OF HOW LONG 


ADC 


Rl 






ill TAKES "XFER REQ" TO SET 


BPL 


2$ 








ERROR 


1 






;"XFER REQ" FAILED TO SET 


TSTB 


0TACS 






; SAMPLE "XFER REQ" 


BPL 


4$ 






TIF "XFER REQ" s SOMETHING IS WRONG 


SUB 


#1,R0 






j DOWN COUNT THE COUNTER 


SBC 


Rl 






?S0 A "TIMING ERROR WILL 


BPL 


3$ 






JOCCUR 



TA11 BASIC LOGIC TEST ( PART 2) MAINDEC-1 1 -DZTAB-C 

TEST "TIMING ERROR" FOP "WRITE" 



DET ABC 


NEW 


T2 






VjXJXJ 1 10 1 


75 3 




1 04001 


754 


VV £0 S 1 


1 057 1 5 




SO SO £ © 5 © 


104412 




002640 


0057 1 4 




S0 10 & D "* £ 


1 0040| 




00264 4 


I 04001 


759 


002646 




760 




010! 1 lAtA 1 


761 




1 0400 1 


762 






76 3 






764 






3^ 


002656 


00000 4 


766 




012767 


76 7 


002666 


012767 




00267 4 




769 


a *5 *7 fii o 




770 


S9w<i / e* 


?! ill! 


771 


002706 


I If 4 ! •> 


772 


0027 | 2 


!! ! 


77 3 


0027 1 4 


112714 


774 


0027 20 


nl n (XIA 


775 


/a f -> o 1 o A 




776 


002726 




777 


0027 32 


104413 


778 




C\<AC inn 


779 


0027 36 




780 


002 / 4o 


i aL! ■? 


7 81 


IOO £ / ?1 




7 8 2 


0027 46 


112714 


783 


002752 


1 £4 A A 1 


784 


002754 


1 IaIi t 


785 


002760 




786 


tA fA *5 T £. o 

00/ / 6 2 


1 05714 


787 


002764 


4 Mrs Ad 1 


7 8 8 


002 766 


< a a i/i a 1 


789 


Fi/iOl 7 fA 
0*7 £ 1 tO 




790 




SO 13 3 Kf SO «v 


7 91 


002 7 7 4 




792 


002776 




793 


003000 


i (ho* A n ^ 


794 


003002 


t»o t 1 XjO 


795 


003006 


(050 D 3 *9 1 


796 


03 3010 


1 «7t0 5 1 £ 


797 


B» $ v 1 £ 


1 10 <f K/tO 1 


798 


0030 1 4 




799 


BoJWlO 


1 00005 




003020 




801 


00 302 4 


005601 


802 


003026 


100372 


803 


003030 


000401 


804 


003032 


104001 


805 


003034 


105715 


806 


003036 


052714 


807 


003042 


104412 



4$; 
5$5 



000012 176300 
002714 176212 
003062 176266 



000003 
000006 



000020 
000017 



BR 5$ 
ERROR 1 
TSTB 0TADB 
WAITREADY 
TST 
BMI 
ERROR 
BIT 
BNE 
ERROR 



PTACS 

6$ 



jfTIMEPR, PTACS 

TST3 



MAC Y 1 1 27(732) ll-JUN-76 13:26 PAGE 19 



; «XFER REQ" SHOULDN'T HAVE CLEARED 
,-CLEAP "XFER REQ" 
•WAIT FOR "READY" 
•IS "ERROR" BIT SET? 
; BR IF YES 

• " ERROR" BIT NOT SET 
; IS "TIMING ERROR" = 1? 
j ?BR IF YES 

; "TIMING ERROR" NOT SET 



4$; 
5$ % 



SCOPE 




MOV 


*10.,$TIMES ; 


NOV 


#7Sf SLPADR ; 


MOV 


#TST4,$ESCAPE ; 


RESET 




MOV 


DRIVE, PTACS 


MOVB 


#PEWIND1G0, PTACS 


WAITREADY 


MOVB 


#WRITE»GO, PTACS 


MOV 


86, R0 


WAITXFER 


MOVB 


8377,PTADB 


WAITXFF.R 


DEC 


R0 


BGT 


8$ 


BIS 


#ILB5, PTACS 


WAITREADY 


MOVB 


#PEWINDlGO, PTACS 


WAITREADY 


MOVB 


# READ 1 GO , PTACS 


WAITXFER 


TSTB 


PTACS 


BMI 


1 S 


ERROR 


1 


TSTB 


PTADB 


CLR 


R0 


CLR 


Rl 


TSTB 


PTACS 


BMI 


3$ 


ADD 


#10„ ,R0 


ADC 


ri 


BPL 


2S 


ERROR 


1 


TSTB 


PTACS 


BPL 


4$ 


SUB 


#1,P0 


SBC 


Rl 


BPL 


3$ 


BR 


5S 


ERROR 


1 


TSTB 


PTADB 


BIS 


#ILBS, PTACS 


WAITREADY 



;D0 10, ITERATIONS 

•SET SCOPE LOOP ADDRESS 

; ESCAPE TO TEST 4 ON ERROR 



SELECT DRIVE 

GO TO "CLEAR LEADER" 
WAIT FOR "READY" 
WRITE 

WRITE THIS MANY BYTES ON TAPE 

WAIT FOR ® XFER REQ" 

WRITE ONE BYTE 

WAIT FOR "XFER REG" 

LAST BYTE OUT? 

BR IF NO 

WRITE "CRC" 

WAIT FOR "READY" 

BACK OVER THE BLOCK 

WAIT FOR " READY" 

START A "READ" 

WAIT FOR "XFER REQ" 

IS " XFER REQ" SET 

BR IF YES 

"XFER REQ" DIDN'T SET 
KNOCK DOWN "XFER REQ" 
CLEAR COUNTERS 

FIND OUT HOW LONG IT 

TAKES FOR " XFER REQ" 
TO SET 



; "XFER REQ" FAILED TO SET 
•NOW WASTE MORE THAN THE ABOVE 
; AMOUNT OF TIME SO THAT 
; A "TE" WILL OCCUR 



•"XFER REQ" CLEARED SOME HOW 
•KNOCK DOWN "XFER REQ" 
; STOP THE READ 
•WAIT ON "READY" 



TA1 1 BASIC LOGIC TEST C PART 2) MAINDEC-1 1 -DZTAB-C 
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DZTABC , NEW 


T3 


TEST " 


TIMING ERROR" FOR 


"READ" 








808 


003044 


005714 








TST 


PTACS 




; IS "ERROR" SET? 


809 


003046 


100401 








BMI 


6$ 




; BR IF YES 


810 


003050 


104001 








ERROR 


1 




; " ERROR" NOT = 1 


811 


003052 


032714 


002000 




6$: 


BIT 


8TIMEPP, PTACS 




;IS THERE A "TIMING ERROR" 


812 


003056 


001001 








BNE 


TST4 


,«G0 


TO NEXT TEST IF YES 


813 


003060 


104001 








ERROR 


I 




; "TIMING ERROR" NOT SET 


814 
815 










•*TEST 


4 


TEST "ERROR" OUTPUT OF STATUS ROM USING A "TIMING ERROR" 


816 












817 


003062 


000004 






TST4: 


SCOPE 








818 


003064 


012767 


000012 


176074 




MOV 


#10 9 ,$TIMES 


; ;D0 


10. ITERATIONS 


819 


003072 


012767 


003126 


176006 




MOV 


#1S,$LPADP 


; ;SET 


SCOPE LOOP ADDRESS 


820 


003100 


012767 


003342 


176062 




MOV 


#TST5,SESCAPE 


; jESCAPE TO TEST 5 ON ERROR 


821 


003106 


000005 








RESET 








822 


0031 10 


010314 








MOV 


DRIVE, PTACS 




; SELECT DRIVE 


823 


0031 12 


112714 


000017 






MOVB 


# REWIND! GO, PTACS 




;G0 TO BEGINNING OF TAPE 


824 


0031 16 


104412 








WAITREADY 




; WAIT ON "READY" TO SET 


825 


003120 


1 12714 


000001 






MOVB 


# WFG J GO, PTACS 




; GET ON THE OXIDE 


826 


003124 


104412 








WAITREADY 




; WAIT ON "READY" TO SET 


827 


0031 26 


1 12714 


000003 




1$: 


MOVB 


SWRITEiGO, PTACS 




; START A WRITE 


828 


0031 32 


104413 








WAITXFER 




; WAIT FOR "TRANSFER REQ" 


829 


003134 


112715 


000377 






MOVB 


S 377 , PTADB 




; WRITE ONE BYTE 


830 


003140 


005000 








CLR 


R0 




j CLEAR THE DOUBLE LENGTH COUNTER 


831 


003142 


005001 








CLP 


Pt 






832 


003144 


105714 






2s: 


TSTB 


PTACS 




•CHECK FOR "XFER REQ" 


833 


0031 46 


100405 








BMI 


3$ 




; BR IF SET 


834 


003150 


062700 


000012 






ADD 


$10.,R0 




;COUNT UP UNTIL "XFER REQ" 


835 


003154 


005501 








ADC 


Rl 




jSETS OR OVERFLOW OCCURS 


836 


003156 


100372 








BPL 


2$ 






837 


003160 


104001 








ERROR 


1 




;"XFER REQ" FAILED TO SET 


838 


003162 


105714 






3$: 


TSTB 


PTACS 




; CHECK "XFER REQ" 


839 


003164 


100401 








BMI 


4$ 




;BP IF SET 


840 


003166 


104001 








ERROR 






; "XFER REQ" SHOULDN'T HAVE CLEARED 


841 


003170 


162700 


000001 




4SS 


SUB 


#1,R0 




;COUNT DOWN TO CAUSE A "TE" 


842 


003174 


005601 








SBC 


Rl 






843 


003176 


100371 








BPL 


3$ 






844 


003200 


105715 








TSTB 


SPTADB 




; CLEAR "XFER PEQ" 


845 


003202 


104412 








WAITREADY 




; WAIT FOR READY 


846 


003204 


005714 








TST 


PTACS 




; MAKE SURE "ERROR" IS SET 


847 


003206 


100401 








BMI 


5$ 






848 


003210 


104001 








ERROR 


1 




; "ERROR" DIDN'T SET 


849 


003212 


032714 


002000 




5$: 


BIT 


STIMERR, PTACS 




; MAKE SURE "TE" IS SET 


850 


003216 


001001 








BNE 


6$ 






851 


003220 


104001 








ERROR 


i 




; "TE" FAILED TO SET 


852 


003222 


112714 


000000 




6SS 


MOVB 


» WFG, PTACS 




; CHECK "ERROR" WITH "WFG" 


853 


003226 


005714 








TST 


PTACS 




; SAMPLE THE "ERROR" BIT 


854 


003230 


100001 








BPL 


7S 




;BR IF "ERROR" r 


855 


003232 


104001 








ERROR 


1 




; "ERROR" NOT s 


856 


003234 


112714 


000002 




7$5 


MOVB 


# WRITE, PTACS 




•CHECK "ERROR" WITH "WRITE" 


857 


003240 


005714 








TST 


PTACS 




\ SAMPLE THE "ERROR" BIT 


858 


003242 


100401 








BMI 


8$ 




;BR IF "ERROR" s % 


859 


003244 


104001 








ERROR 


1 




; "ERROR" NOT = 1 


860 


003246 


112714 


000004 




8$: 


MOVB 


SREAD, PTACS 




;CHECK "ERROR" WITH "READ" 


861 


003252 


005714 








TST 


PTACS 




; SAMPLE THE "ERROR" BIT 


862 


003254 


100401 








BMI 


9$ 




; BR IF "ERROR" = 1 


863 


003256 


104001 








ERROR 


1 




; "ERROR" NOT = 1 
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DZT ABC , NEW T4 TEST "ERROR" OUTPUT OF STATUS ROM USING A "TIMING ERROR" 



SEQ 0035 



864 


003260 


1 12714 


000006 


9S i 


MOVB 


#BSFG» 


STAGS 


; CHECK "ERROR " WITH 


" BSFG " 


865 


003264 


005714 






TST 


gTACS 




; SAMPLE THE "ERROR" 


BIT 


866 


003266 


100001 






BPL 


10$ 




jBR IF "ERROR" a 




867 


003270 


104001 






ERROR 


1 




;" ERROR" NOT a 




868 


003272 


1 12714 


000010 


10$ : 


MOVB 


#BSBG, 


§TACS 


•CHECK "ERROR" WITH 


"BSBG" 


869 


003276 


005714 






TST 


0TACS 




;SAMPLE THE "ERROR" 


BIT 


870 


003300 


100001 






BPL 


11 $ 




; BR IF "ERROR" s 




871 


003302 


104001 






ERROR 


1 




; "ERROR* NOT = 




872 


003304 


1 12714 


000012 


11$: 


MOVB 


#SFFG, 


PTACS 


; CHECK " ERROR" WITH 


" SFFG" 


873 


003310 


005714 






TST 


fTACS 




; SAMPLE THE "ERROR" 


BIT 


874 


003312 


100001 






BPL 


12$ 




jBR IF "ERROR" a 




875 


003314 


104001 






ERROR 






j "ERROR" NOT a 




876 


003316 


112714 


000014 


12$ s 


MOVB 


#SFBG, 


PTACS 


jCHECK "ERROR" WITH 


" SFBG" 


877 


003322 


0057 1 4 






TST 


§TACS 




JSAMPLit. THt C.RRUR 




878 


003324 


100001 






BPL 


13$ 




f BR IF "ERROR" = 




879 


003326 


104001 






ERROR 


1 




; "ERROR" NOT = 




880 


003330 


1 12714 


000016 


13$S 


MOVB 


#REWIND,PTACS 


•CHECK "ERROR" WITH 


"REWIND" 


881 


003334 


005714 






TST 


SSTACS 




; SAMPLE THE "ERROR" 


BIT 


882 


003336 


100001 






BPL 


TST5 




; ;BP IF "ERROR" = 




383 


003340 


104001 






ERROR 


1 




; "ERROR" NOT = 





889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 



I THE FOLLOWING TESTS CHECK THE INTERRUPT CIRCUITRY FOR: 
? 

; 1 ) INTERRUPT OCCURS AT THE PROPER "BR" LEVEL 

;2) "READY" WILL INTERRUPT 

j 3) "TRANSFER REQUEST" WILL INTERRUPT 

; 4) IMPROPER INTERRUPTS DO NOT OCCUR 

•5) WITH AN ERROR PENDING AND "XFER REQ." SET THE FOLLOWING SEQUENCE OCCURS 

; A) "XFER REQ" CAUSES AN INTERRUPT 

• B) CLEARING "XFER REQ" ALLOWS "READY" TO SET 
C) "READY" CAUSES AN INTERRUPT 



• • «*#»««»#»«*»»*«**»**««»*»**«***«****»***«**«****»«******«'*«'«#** 

•THIS TEST WILL SETUP THE TA1 1 *S VECTOR ADDRESS AND AT ADDRESS 
•A JMP P(PC)+ IS STORED INCASE THE VECTOR IS READ AS 0. 
•IT WILL THEN SET THE PRIORITY LEVEL TO AND WASTE ENOUGH TIME 
j FOR AN INTERRUPT TO OCCUR. 

; AFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 
; AND CHECK IF AN INTERRUPT OCCURRED. 



909 


003342 


000004 




TST5 : 


SCOPE 






910 


003344 


012767 


003362 


175534 


MOV 


*1$, SLPADR 


• ;SET SCOPE LOOP ADDRESS 


911 


003352 


012767 


003520 


175610 


MOV 


#6$,$ESCAPE 


; jESCAPE TO 6$ ON ERROR 


912 


003360 


000005 






RESET 






913 


003362 


010314 




is: 


MOV 


DRIVE, PTACS 




914 


003364 


012737 


000340 


177776 


MOV 


If 340,0#PS 


;LOCK OUT ALL INTERRUPTS 


915 


003372 


012700 


000000 




MOV 


#0,R0 


; TEST AT PRIORITY LEVEL 


916 


003376 


005001 






CLR 


Rl 


; CLEAR INTERRUPT KEY 


917 


003400 


012702 


000001 




MOV 


#1»R2 


;SETUP TO WASTE A LITTLE TIME 


918 


003404 


012777 


003510 


175604 


MOV 


#4$,3TAVEC 


; INTERRUPT RETURN 


919 


003412 


012777 


000340 


175600 


MOV 


#340,0TAVEC+2 


JLOCK OUT THE WORLD IF INTERRUPT 
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T ABC .NEW 


T5 


TEST INTERRUPT 


WITH READY a "1" 


AT LEVEL 




920 


003420 


012737 


000137 


000000 




MOV 


#137,3*0 


• SETUP TO CATCH INTERRUPT IF 


921 


003426 


012737 


003514 


000002 




MOV 


*5S,@»2 


; IT GOES TO LOCATION 


922 


003434 


1 12714 


000100 






MOVB 


# INT . EN , 3TACS 


; SET INTERRUPT ENABLE 


923 


003440 


012737 


000000 


177776 




MOV 


#0*40, 0#PS 


% SET TO PRIORITY LEVEL 


924 


003446 


006302 






2$: 


ASL 


R2 


; KILL SOME TIME 


925 


003450 


001 376 








BNE 


2$ 




926 


003452 


012737 


000340 


177776 




MOV 


•340,@»PS 


jLOCK OUT THE WORLD 


927 


003460 


005701 








TST 


Rl 


;DID AN INTERRUPT OCCUR? 


928 


003462 


001005 








BNE 


3$ 


; BR IF YES 


929 


003464 


022737 


000000 


001222 




CM? 


#0#40,@#TAPPIO 


;WAS AN INTERRUPT EXPECTED? 


930 


003472 


002012 








BGE 


6$ 


; BR IF NO 


931 


003474 


104006 








ERROR 


6 


; INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 


932 
933 


003476 


022737 


000000 


001222 


3$s 


CMP 


#0*40, §#TAPRIO 


; INTERRUPT OCCURRED — SHOULD IT HAVE? 


934 


003504 


002405 








BLT 


6$ 


; BR IF YES 


935 


003506 


104006 








ERROR 


6 


; INTERRUPT OCCURRED AT PRIORITY LEVEL 


936 
937 


003510 


005201 






4$: 


INC 


Rl 


; SET INTERRUPT KEY 


938 


003512 


000002 








RTI 




; RETURN AFTER INTERRUPT 


939 


003514 


022626 






5$: 


CMP 


(SP)+, (SP)+ 


;POP THE STACK 


940 


003516 


104006 








ERROR 


6 


; INTERRUPT WENT TO LOCATION 


941 

942 


003520 


005014 






6$: 


CLR 


gTACS 


; CLEAR INTERRUPT ENABLE 


943 


003522 


013777 


001220 


175466 




MOV 


9ITAVEC+2, PTAVEC 


;SET TRAP CATCHER 


944 


003530 


005077 


175464 






CLR 


9TAVEC+2 




945 


003534 


005037 


000000 






CLR 


M0 




946 


003540 


005037 


000002 






CLR 


0#2 




947 












948 












;THIS TEST WILL SETUP THE TAH'S VECTOR ADDRESS AND AT ADDRESS 


949 












; A JMP 


?(PC)+ IS STORED INCASE 


THE VECTOR IS READ AS 0. 


950 












; IT WILL THEN SET THE PRIORITY 


LEVEL TO 1 AND WASTE ENOUGH TIME 


951 












;FOR AN 


INTERRUPT TO OCCUR. 




952 












; AFTER 


THE TIME IS UP IT WILL 


RESTORE THE PS TO LEVEL 7 


953 












; AND CHECK IF AN INTERRUPT OCCURRED. 


954 












955 










?#TEST 


6 


TEST INTERRUPT WITH READY a "1" AT LEVEL 1 


956 












957 


003544 


000004 






TST6 : 


SCOPE 






958 


003546 


012767 


003564 


175332 




MOV 


1 1 $ , SLPADR ; J SET 


SCOPE LOOP ADDRESS 


959 


003554 


012767 


003722 


175406 




MOV 


#6$,$ESCAPE | ? ESCAPE TO 6$ ON ERROR 


960 


003562 


000005 








RESET 






961 


003564 


010314 






1$: 


MOV 


DRIVE, PTACS 




962 


003566 


012737 


000340 


177776 




MOV 


f 340,9#PS 


fLOCK OUT ALL INTERRUPTS 


963 


003574 


012700 


000001 






MOV 


#1,R0 


j TEST AT PRIORITY LEVEL 1 


964 


003600 


005001 








CLR 


Rl 


;CLEAR INTERRUPT KEY 


965 


003602 


012702 


000001 






MOV 


#i,R2 


•SETUP TO WASTE A LITTLE TIME 


966 


003606 


012777 


003712 


175402 




MOV 


f 4$,9TAVEC 


; INTERRUPT RETURN 


967 


003614 


012777 


000340 


175376 




MOV 


#340,S»TAVEC + 2 


•LOCK OUT THE WORLD IF INTERRUPT 


968 


003622 


012737 


000137 


000000 




MOV 


#137, i#0 


; SETUP TO CATCH INTERRUPT IF 


969 


003630 


012737 


003716 


000002 




MOV 


#5$,@#2 


; IT GOES TO LOCATION 


970 


003636 


112714 


000100 






MOVB 


SINT,EN,0TACS 


j SET INTERRUPT ENABLE 


971 


003642 


012737 


000040 


177776 




MOV 


#1#40, @#PS 


; SET TO PRIORITY LEVEL 1 


972 


003650 


006302 






2$S 


ASL 


R2 


; KILL SOME TIME 


973 


003652 


001376 








BNE 


2$ 




974 


003654 


012737 


000340 


177776 




MOV 


#340, MPS 


jLOCK OUT THE WORLD 


975 


003662 


005701 








TST 


Rl 


; DID AN INTERRUPT OCCUR? 



TA1 1 BASIC LOGIC TEST ( PART 2) MAINDEC-1 1 -DZTAB-C 



DZTABC . NEW 


T6 


TEST INTERRUPT 


976 


003664 


001005 






977 


003666 


022737 


000040 


001222 


978 


003674 


002012 






979 


003676 


104006 






980 
981 


003700 


022737 


000040 


001222 


982 


003706 


002405 






983 


003710 


104006 






984 










985 


003712 


005201 






986 


003714 


000002 






987 


003716 


022626 






988 


003720 


104006 






989 










990 


003722 


005014 






991 


003724 


013777 


001220 


175264 


992 


003732 


005077 


175262 




99 3 


0037 36 


005037 


000000 




994 


003742 


005037 


000002 




995 










996 










997 










998 










999 










1000 










1001 
1002 










1003 










1004 










1005 


003746 


000004 






1006 


003750 


012767 


003766 


175130 


1007 


003756 


012767 


004124 


175204 


1008 


003764 


000005 






1009 


003766 


010314 






1010 


003770 


012737 


000340 


177776 


1011 


003776 


012700 


000002 




1012 


004002 


005001 






1013 


004004 


012702 


000001 




1014 


004010 


012777 


0041 14 


175200 


1015 


004016 


012777 


000340 


175174 


1016 


004024 


012737 


000137 


000000 


1017 


004032 


012737 


004120 


000002 


1018 


004040 


112714 


000100 




1019 


004044 


012737 


000100 


177776 


1020 


004052 


006302 






1021 


004054 


001376 






1022 


004056 


012737 


000340 


17777b 


1023 


004064 


005701 






1024 


004066 


001005 






1025 


004070 


022737 


0001 00 


001222 


1026 


004076 


002012 






1027 


004100 


104006 






1028 










1029 


004102 


022737 


000100 


001222 


1030 


0041 10 


002405 






1031 


0041 12 


104006 







MACY11 
AT LEVEL 1 
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BNE 
CMP 
BGE 
ERROR 


3S 

#1*40« 

6S 

6 


e#TAPRIO 


;BR IF YES 

• WAS AN INTERRUPT EXPECTED? 
;BP IF NO 

; INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 


CMP 
BLT 
ERROR 


#1*40 

6$ 

6 


e*TAPRIO 


; INTERRUPT OCCURRED--SHOULD IT HAVE? 
; BR IF YES 

; INTERRUPT OCCURRED AT PRIORITY LEVEL 1 


INC 
RTI 
CMP 
ERROR 


R! 

(SP) + 

6 


(SP) + 


;SET INTERRUPT KEY 

; RETURN AFTER INTERRUPT 

;POP THE STACK 

; INTERRUPT WENT TO LOCATION 


CLR 

MOV 
CLR 
CLR 
CLR 


gTACS 

MTAVEC + 2, 3TAVEC 
9TAVEC+2 

?#0 
S>#2 


; CLEAR INTERRUPT ENABLE 
•SET TRAP CATCHER 



•THIS TEST WILL SETUP THE TA11 'S VECTOR ADDRESS AND AT ADDRESS 
; A JMP p(PC)+ IS STORED INCASE THE VECTOR IS READ AS 0. 
•IT WILL THEN SET THE PRIORITY LEVEL TO 2 AND WASTE ENOUGH TIME 
• FOR AN INTERRUPT TO OCCUR. 

; AFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 
; AND CHECK IF AN INTERRUPT OCCURRED. 



TEST INTERRUPT WITH READY 



" 1 " AT LEVEL 2 



SCOPE 






MOV 


#1$,$LPADR 


IJSET SCOPE LOOP ADDRESS 


MOV 


#6$,$ESCAPE 


; jESCAPE TO 6$ ON ERROR 


RESET 






MOV 


DRIVE, PTACS 




MOV 


#340, MPS 


• LOCK OUT ALL INTERRUPTS 


MOV 


#2,R0 


; TEST AT PRIORITY LEVEL 2 


CLR 


Rl 


;CLEAP INTERRUPT KEY 


MOV 


#1,R2 


; SETUP TO WASTE A LITTLE TIME 


MOV 


#4$, 3TAVEC 


; INTERRUPT RETURN 


MOV 


1340, PTAVEC+2 


jLOCK OUT THE WORLD IF INTERRUPT 


MOV 


#137,<a#0 


;SETUP TO CATCH INTERRUPT IF 


MOV 


#5$, §#2 


; IT GOES TO LOCATION 


MOVB 


? INT . EN , fiTACS 


;SET INTERRUPT ENABLE 


MOV 


#2*40, P#PS 


;SET TO PRIORITY LEVEL 2 


ASL 


R2 


; KILL SOME TIME 


BNE 


2$ 




MOV 


#340, §#PS 


; LOCK OUT THE WORLD 


TST 


Rl 


;DID AN INTERRUPT OCCUR? 


BNE 


3$ 


; BR IF YES 


CMP 


S2*40, £#TAPRIO 


•WAS AN INTERRUPT EXPECTED? 


BGL 


6$ 


; BR IF NO 


ERROR 


6 


; INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 


CMP 


82»40,£#TAPRIO 


; INTERRUPT OCCURRED — SHOULD IT HAVE? 


BLT 


6$ 


j BR IF YES 


ERROR 


6 


; INTERRUPT OCCURRED AT PRIORITY LEVEL 2 



TA1 1 BASIC LOGIC TEST (PART 2) MA I N DEC - 1 1 -DZTAB-C 
DZTABC, NEW T7 TEST INTERRUPT WITH READY = 



MACY11 
AT LEVEL 2 
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1032 


















1033 


004114 


005201 






4S: 


INC 


Rl 


;SET INTERRUPT KEY 


1034 


0041 16 


000002 








RTI 




; RETURN AFTER INTERRUPT 


1035 


004120 


022626 






5SS 


CMP 


(SP)+, (SP)+ 


;POP THE STACK 


1036 


004122 


104006 








ERROR 


6 


; INTERRUPT WENT TO LOCATION 


1037 


















1038 


004124 


005014 






6$: 


CLR 


PTACS 


; CLEA R INTERRUPT ENABLE 


1039 


004126 


013777 


001220 


175062 




MOV 


0#TAVEC+2,PTAVEC 


j SET TRAP CATCHER 


1040 


004134 


005077 


175060 






CLR 


9TAVEC+2 




1041 


004140 


005037 


000000 






CLR 


§#0 




1042 


004144 


005037 


000002 






CLR 


?82 




1043 
1044 












;THIS TEST WILL SETUP THE TAll'S VECTOR ADDRESS AND AT ADDRESS 


1045 












;A JMP 


P(PC)+ IS STORED 


INCASE THE VECTOR IS READ AS 0. 


1046 












; IT WILL THEN SET THE PRIORITY LEVEL TO 3 AND WASTE ENOUGH TIME 


1047 












?FOR AN 


INTERRUPT TO OCCUR. 


1048 












; AFTER 


THE TIME IS UP IT 


WILL RESTORE THE PS TO LEVEL 7 


1049 












; AND CHECK IF AN INTERRUPT OCCURRED. 


1050 










•;*»»»*«*»**#««»*«»»*«******«»»*«»##**»##**»*»**»*«**##«**»*#««** 


1051 










•#TEST 


10 


TEST INTERRUPT WITH READY = "1" AT LEVEL 3 


1052 










j • 


1053 


004150 


000004 






TST1 : 


SCOPE 






1054 


004152 


012767 


004170 


174726 




MOV 


#1S,SLPADR 


; ;SET SCOPE LOOP ADDRESS 


1055 


004160 


012767 


004326 


175002 




MOV 


#6$,SESCAPE 


;; ESCAPE TO 6$ ON ERROR 


1056 


004166 


000005 








RESET 






1057 


0041 70 


010314 






is: 


MOV 


DRIVE, PTACS 




1058 


004172 


012737 


000340 


177776 




MOV 


#340,§»3PS 


;LOCK OUT ALL INTERRUPTS 


1059 


004200 


012700 


000003 






MOV 


#3,R0 


; TEST AT PRIORITY LEVEL 3 


1060 


004204 


005001 








CLR 


Rl 


;CLEAR INTERRUPT KEY 


1061 


004206 


012702 


000001 






MOV 


#l,R2 


; SETUP TO WASTE A LITTLE TIME 


1062 


004212 


012777 


004316 


174776 




MOV 


M$,$TAVEC 


; INTERRUPT RETURN 


1063 


004220 


012777 


000340 


174772 




MOV 


#340,3TAVEC+2 


jLOCK OUT THE WORLD IF INTERRUPT 


1064 


004226 


012737 


000137 


000000 




MOV 


1137, G»#0 


jSETUP TO CATCH INTERRUPT IF 


1065 


004234 


012737 


004322 


000002 




MOV 


#5$,@#2 


IT GOES TO LOCATION 


1066 


004242 


112714 


000100 






MOVB 


#INT.EN,9TACS 


;SET INTERRUPT ENABLE 


1067 


004246 


012737 


000140 


177776 




MOV 


#3*40, @#PS 


;SET TO PRIORITY LEVEL 3 


1068 


004254 


006302 






2$; 


ASL 


R2 


; KILL SOME TIME 


1069 


004256 


001376 








BNE 


2$ 




1070 


004260 


012737 


000340 


177776 




MOV 


#340,?#PS 


;LOCK OUT THE WORLD 


1071 


004266 


005701 








TST 


Rl 


;D1D AN INTERRUPT OCCUR? 


1072 


004270 


001005 








BNE 


3$ 


; BR IF YES 


1073 


004272 


022737 


000140 


001222 




CMP 


93*40, MTAPRIO 


;WAS AN INTERRUPT EXPECTED? 


1074 


004300 


002012 








BGE 


6$ 


; BR IF NO 


1075 
1076 


004302 


104006 








ERROR 


6 


i INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 


1077 


004304 


022737 


000140 


001222 


3$: 


CMP 


#3*40,38TAPRIO 


; INTERRUPT OCCURRED— SHOULD IT HAVE? 


1078 


004312 


002405 








BLT 


6$ 


J BR IF YES 


1079 

1080 


004314 


104006 








ERROR 


6 


; INTERRUPT OCCURRED AT PRIORITY LEVEL 3 


1081 


004316 


005201 






4$: 


INC 


PI 


;SET INTERRUPT KEY 


1082 


004320 


000002 








RTI 




; RETURN AFTER INTERRUPT 


1083 


004322 


022626 






5$ S 


CMP 


(SP)+, (SP)+ 


J POP THE STACK 


1084 


004324 


104006 








ERROR 


6 


; INTERRUPT WENT TO LOCATION 


1085 


















1086 


004326 


005014 






6$: 


CLR 


9TACS 


; CLEAR INTERRUPT ENABLE 


1087 


004330 


013777 


001220 


174660 




MOV 


?#TAVEC+2,PTAVEC 


;SET TRAP CATCHER 



TA1 I BASIC LOGIC TEST 
DZTABC.NEW T10 
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TEST INTERRUPT WITH READY = "1" AT LEVEL 3 



SEQ 0039 





004336 


00507 7 


174656 






CLR 


3TAVEC+2 




1089 


004342 




GI0tft£Ad61 






CLR 


§80 




1 090 


004 346 


005037 


000002 






CLR 


§#2 
















1092 












J THIS 


TEST WILL SETUP THE TAll'S VECTOR ADDRESS AND AT ADDRESS 


1 09 3 












: A JMP 


P(PC)+ IS STORED INCASE 


THE VECTOR IS READ AS 0, 


1 09 4 












;IT WILL THEN SET THE PRIORITY 


LEVEL TO 4 AND WASTE ENOUGH TIME 














jFOR AN INTERRUPT TO OCCUR, 




1 flnt 












; AFTER 


THE TIME IS UP IT WILL 


RESTORE THE PS TO LEVEL 7 














; AND CHECK IF AN INTERRUPT OCCURRED. 


1 SOB 












1 an! 










;#TEST 


11 


TEST INTERRUPT WITH READY = "1" AT LEVEL 4 


i i 












: 

i i S 


004352 


00ri004 






TST1 1 : 


SCOPE 








0IC1 A 1 K A 


^ 1 % 7 #! 7 


aw A2ii 

K7k5 fij ^ / ^ 


174524 




MOV 


#l$,$LPADR ; f SET 


SCOPE LOOP ADDRESS 


i a 

1 1 as 


10 (0 1 J O £ 




Saw t D Jlo 


1 7 a (%c*n 




MOV 


#6$, SESCAPE ; ;ESCAPE TO 6$ ON ERROR 


1104 


004 370 


9, if % 5 








RESET 






1 105 




010 314 






1 $ : 


MOV 


DRIVE, PTACS 




1 106 


004 37 4 


0127 37 


000 340 


177776 




MOV 


#340, P#PS 


; LOCK OUT ALL INTERRUPTS 


1107 


004 402 


01 2700 


000004 






MOV 


#4, R0 


•TEST AT PRIORITY LEVEL 4 


1108 


004406 


005001 








CLR 


Ri 


;CLEAR INTERRUPT KEY 


! \®\ 


& tA A A 1 




00000 1 






MOV 


#l,R2 


;SETUP TO WASTE A LITTLE TIME 


1110 


004 414 


mi ill! 




_ 




MOV 


Sf4$# 3TAVEC 


; INTERRUPT RETURN 


1111 




OT77 


000 340 


174570 




MOV 


# 340; 9TAVEC+2 


j LOCK OUT THE WORLD IF INTERRUPT 


\\\\ 


CT d A 1(A 


Ml ?717 


000 137 


W KJ V SO SO %J 




MOV 


S 1 37 / £#0 


; SETUP TO CATCH INTERRUPT IF 




It/ v *» "* j o 


CM 37 >,7 


004524 


000002 




MOV 


#5$ , @S 2 


i L 1 uUto TO LULATXUN lo 


1114 


Oi(A A A A A 


11 971 A 


(MALI 1 IA(A 






MOVB 


# IN T . EN i 9TACS 


; SET INTERRUPT ENABLE 


1115 


CAiAA /ICM 
WW* 13H 


0127 37 


a c\ ot o ft a 


177776 




MOV 


# 4*40 , P # PS 




1116 


004456 


006302 






2$ : 


ASL 


R2 


; KILL SOME TIME 


1117 


004460 


001 376 








BNE 


2S 




! « ! « 


wio ■* t o / 












#340,S#PS 


j LOCK OUT THE WORLD 


1119 




005 7 1 








TST 


Rl 


•DID AN INTERRUPT OCCUR? 


1120 


004472 


001005 








BNE 


3$ 


•BR IF YES 


1121 


004474 


022737 


000200 


001222 




CMP 


#4*40, §#TAPRIO 


; WAS AN INTERRUPT EXPECTED? 




Ww** j (0 Z 


00 2 j 2 








BGE 


6S 


j BR IF NO 


110? 


K? %) *t O t? ** 


1 ly *f ic/ tlO 








ERROR 


6 


; INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 


1124 
1125 


004506 


022737 


000200 


001222 


3 $ : 


CMP 


#4*40,gt#TAPRIO 


; INTERRUPT OCCURRED--SHOULD IT HAVE? 


1 126 


004514 


002405 








BLT 


6$ 


; BR IF YES 


1127 




1 d AM &. 
1 WttOsJO 








ERROR 


6 


; INTERRUPT OCCURRED AT PRIORITY LEVEL 4 


1 1 jq 


004520 


00520 1 






4$: 


INC 


PI 


;SET INTERRUPT KEY 




10(0 *i D i i 


01 01 01 £3 (A O 








RTI 




; RETURN AFTER INTERRUPT 




0045 24 








5$: 


CMP 


(SP)+, (SP)+ 


;POP THE STACK 


li t 


004526 










ERROR 


6 


; INTERRUPT WENT TO LOCATION 


113 3 










6$ J 


CLR 


§TACS 


; CLEAR INTERRUPT ENABLE 


1135 


0045 32 






174456 




MOV 


P»TAVEC+2, &TAVEC 


JSET TRAP CATCHER 


1 1 36 


004540 


005077 


174454 






CLR 


§TAVEC*2 




1137 


00 4544 


005037 


000000 






CLR 


§#0 




1 138 


004550 


005037 


000002 






CLR 


e«2 




1 1 39 












1140 












;THIS 


TEST WILL SETUP THE TAH 


'S VECTOR ADDRESS AND AT ADDRESS 


1141 












; A JMP 


P(PO* IS STORED INCASE 


THE VECTOR IS READ AS 0, 


1142 












;IT WILL THEN SET THE PRIORITY 


LEVEL TO 5 AND WASTE ENOUGH TIME 


1143 












;FOR AN INTERRUPT TO OCCUR, 





TAH BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB-C 



DZTABC.NEW 



Til 



TEST INTERRUPT WITH READY s "1" AT LEVEL 4 
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1 144 










1 ! 45 










1146 










1 1 47 










1148 










1149 


004554 


000004 






1150 


004556 


012767 


004574 


174322 


1151 


004564 


012767 


004732 


174376 


1152 


004572 


0^0005 






1153 


004574 


010314 






1154 


004576 


012737 


000340 


1 77776 


1155 


004604 


012700 


000005 




1156 


004610 


005001 






1 157 


004612 


012702 


000001 




1158 


004616 


012777 


004722 


174372 


1 159 


004624 


012777 


000340 


174366 


1160 


004632 


012737 


000137 


000000 


1 161 


004640 


012737 


004726 


000002 


1162 


004646 


112714 


000100 




1163 


004652 


012737 


000240 


177776 


1 164 


004660 


006302 






1 165 


004662 


001376 






1 166 


004664 


012737 


000340 


177776 


1167 


004672 


005701 






1 168 


004674 


001005 






1 169 


004676 


022737 


000240 


001222 


1170 


004704 


002012 






1171 


004706 


104006 






1 172 










1173 


004710 


022737 


000240 


001222 


1174 


004716 


002405 






1 175 


004720 


104006 






1176 










1177 


004722 


005201 






1178 


004724 


000002 






1 179 


004726 


022626 






1180 


004730 


104006 






1181 










1182 


004732 


005014 






1183 


004734 


013777 


001220 


174254 


1184 


004742 


005077 


174252 




1185 


004746 


005037 


000000 




1186 


004752 


005037 


000002 




1187 










1188 










1 189 










1190 










1191 










1 192 










1 193 










1 194 










1 195 










1 196 










1197 


004756 


000004 






1198 


004760 


012767 


004776 


174120 


1199 


004766 


012767 


005134 


174174 



4$: 
5S: 



; AFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 

; AND CHECK IF AN INTERRUPT OCCURRED 9 

"1" AT LEVEL 5 



;SET SCOPE LOOP ADDRESS 
? ESCAPE TO 6S ON ERROR 



12 


TEST 


INTERRUPT 


SCOPE 






MOV 


#1$, SLPADR 


MOV 


#68 # SESCAPE 


RESET 






MOV 


DRIVE 


,@TACS 


MOV 


#340, 


P#PS 


MOV 


#5,R0 




CLR 


Rl 




MOV 


»1,R2 




MOV 


#4$,STAVEC 


MOV 


#340, 


3TAVEC+2 


MOV 


#137, 


@#0 


MOV 


#5$, §#2 


MOVB 


#INT,EN,9TACS 


MOV 


#5»40 


,§SPS 


ASL 


R2 




BNE 


2$ 




MOV 


#340, 


ia#PS 


TST 


Rl 




BNE 


3$ 




CMP 


#5*40 


, 0#TAPRIO 


BGE 


6S 




ERROR 


6 




CMP 


#5*40 


,g*TAPRIO 


BLT 


6$ 




ERROR 


6 




INC 


Rl 




RTI 






CMP 


(SP) + 


9 CSPH 


ERROR 


6 




CLR 


STACS 




MOV 


$#TAVEC+2,9TAVE 


CLR 


9TAVEC+2 


CLR 






CLR 


##2 





» LOCK OUT ALL INTERRUPTS 

; TEST AT PRIORITY LEVEL 5 

; CLEAR INTERRUPT KEY 

; SETUP TO WASTE A LITTLE TIME 

; INTERRUPT RETURN 

J LOCK OUT THE WORLD IF INTERRUPT 
; SETUP TO CATCH INTERRUPT IF 
; IT GOES TO LOCATION 
;SET INTERRUPT ENABLE 
;SET TO PRIORITY LEVEL 5 
; KILL SOME TIME 

J LOCK OUT THE WORLD 
;DID AN INTERRUPT OCCUR? 
J BR IF YES 

; WAS AN INTERRUPT EXPECTED? 
?BR IF NO 

; INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 5 

; INTERRUPT OCCURRED --SHOULD IT HAVE? 

?BR IF YES 

; INTERRUPT OCCURRED AT PRIORITY LEVEL 5 

J SET INTERRUPT KEY 

; RETURN AFTER INTERRUPT 

;POP THE STACK 

j INTERRUPT WENT TO LOCATION 

; CLEAR INTERRUPT ENABLE 
f SET TRAP CATCHER 



| THIS TEST WILL SETUP THE TAll'S VECTOR ADDRESS AND AT ADDRESS 
; A JMP 9(PC)* IS STORED INCASE THE VECTOR IS READ AS 0, 
,'IT WILL THEN SET THE PRIORITY LEVEL TO 6 AND WASTE ENOUGH TIME 
;FOR AN INTERRUPT TO OCCUR. 

1 AFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 
? AND CHECK IF AN INTERRUPT OCCURRED. 



SCOPE 

MOV 

MOV 



#1$, SLPADR 
#6$ , SESCAPE 



; JSET SCOPE LOOP ADDRESS 
; JESCAPE TO 6$ ON ERROR 
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DZTABC .NEW T13 TEST INTERRUPT WITH READY s "1" AT LEVEL 6 



1 200 


00477 4 


000005 






1 201 


004776 


01 0314 






1 202 


005000 


012737 


000340 


177776 


1 20 3 


005006 


1 2700 


000006 




1 204 


00501 2 


005001 






1 205 


0050 1 4 


012702 


00000 1 




1 206 


005020 


012777 


005 124 


174170 


1 207 


005026 


012777 


000340 


174164 




00503 4 


012737 


0001 37 


000000 


1 209 


005042 


012737 


005 130 


000002 




005050 


112714 


000 J 00 




1211 


00505 4 


012737 


000 300 


177776 


\ W\ 














001 376 












000 340 


177776 


\\\\ 


005074 


005701 








005076 


001005 








10 iO*? i iOtO 


0227 37 


000 300 


001 222 


1218 


BBS 1 HO 


0020 1 2 






1219 


0051 1 


1 04006 
















1221 


005 112 


022737 


000 300 


001 222 




005120 


002405 






J OTA 


005122 


1 04006 


















00512 4 


005201 








005 126 


000002 






_ 


005 130 


022626 






i 


005 132 


A 10 *fi HJtu V? 






1 TOO 










1 in 


005 13 4 


00501 4 






! ? i 




013777 


001 220 


1 74052 




acts; ui 


005077 


1 7 4050 








iff %f 3 j / 


000000 






005 15 4 


005037 


000002 












































i 7 ?Q 










i i& 








































:^ 












10 tO «J iOf 


00000 4 






1 246 






005 200 


17 3716 


1247 


0051 70 


012767 


005336 


173772 


1248 


00517b 


000005 






1249 


005200 


010314 






1250 


005202 


012737 


000340 


177776 


1251 


005210 


012700 


000007 




1252 


005214 


005001 






1253 


005216 


012702 


000001 




1254 


005222 


012777 


005326 


173766 


1255 


005230 


012777 


000340 


173762 



RESET 








MOV 


DRIVE 


,§TACS 




MOV 


#340, 


MPS 


;LOCK OUT ALL INTERRUPTS 


MOV 


#6, R0 




• TEST AT PRIORITY LEVEL 6 


CLR 


Rl 




yCLEAP INTERRUPT KEY 


MOV 


#1,R2 




; SETUP TO WASTE A LITTLE TIME 


MOV 


#4$,3TAVEC 


; INTERRUPT RETURN 


MOV 


#340/ 


9TAVEC+2 


• LOCK OUT THE WORLD IF INTERRUPT 


MOV 


#137, 


e#0 


} SETUP TO CATCH INTERRUPT IF 




#5$, §#2 


> IT GOES TO LOCATION 


MOVB 


#INT.EN,eTACS 


. SET INTERRUPT ENABLE 


MOV 






; SET TO PRIORITY LEVEL 6 


ASL 


R2 




; KILL SOME TIME 




2$ 






MOV 


#340, 


&SJPS 


•LOCK OUT THE WORLD 


TST 


Rl 




•DID AN INTERRUPT OCCUR? 


BNE 


3$ 




;BR IF YES 




#6»40 


,fi#TAPRIO 


. MAS AN INTERRUPT EXPECTED? 


BGE 


6$ 




•BR IF NO 


(■pons 


6 




; INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 


CMP 


#6*40 


, BSTAPRIO 


; INTERRUPT OCCURRED— SHOULD IT HAVE? 




6$ 




•BR IF YES 


ERROR 


6 




; INTERRUPT OCCURRED AT PRIORITY LEVEL 6 


INC 


Rl 




• SET INTERRUPT KEY 


RTI 






; RETURN AFTER INTERRUPT 


CMP 


(SP) + 


, (SP)+ 


j POP THE STACK 


ERROR 


6 




; INTERRUPT WENT TO LOCATION 


CLR 


iTACS 




J CLEAR INTERRUPT ENABLE 


MOV 


e#TAVEC+2,$TAVEC 


;SET TRAP CATCHER 


CLR 


9TAVEC+2 




CLR 


B#0 






CLR 


@#2 







4$! 
5$ J 



;THIS TEST WILL SETUP THE TAli'S VECTOR ADDRESS AND AT ADDRESS 
; A JMP a (PC)* IS STORED INCASE THE VECTOR IS READ AS 0, 
; IT WILL THEN SET THE PRIORITY LEVEL TO 7 AND WASTE ENOUGH TIME 
;FOR AN INTERRUPT TO OCCUR. 

• AFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 
; AND CHECK IF AN INTERRUPT OCCURRED • 

;*TEST 14 TEST INTERRUPT WITH READY = " 1 " AT LEVEL 7 

TST 14! 



SCOPE 






MOV 


« 1$,$LPADR 


j} SET SCOPE LOOP ADDRESS 


MOV 


#6$,$ESCAPE 


; j ESCAPE TO 6$ ON ERROR 


RESET 






MOV 


DRIVE, PTACS 




MOV 


#340, P#PS 


;LOCK OUT ALL INTERRUPTS 


MOV 


S7,R0 


; TEST AT PRIORITY LEVEL 7 


CLR 


Rl 


; CLEAR INTERRUPT KEY 


MOV 


»1,R2 


•SETUP TO WASTE A LITTLE TIME 


MOV 


#4S, 0TAVEC 


; INTERRUPT RETURN 


MOV 


#340,BTAVEC+2 


;LOCK OUT THE WORLD IF INTERRUPT 



TA1 1 BASIC LOGIC TEST (PART 2) MA I NDEC - 1 1 -DZTAB-C 



MAC Y 1 1 27 (732) ll-JUN-76 13:26 PAGE 28 



ZTABC .NEW 


T14 


TEST INTERRUPT 


WITH READY = "1" 


AT LEVEL 7 






1 256 


005236 


0127 37 


000137 


000000 




MOV 


#137, P#0 




;SETUP TO CATCH INTERRUPT IF 


1257 


005244 


012737 


005332 


000002 




MOV 


#5$,g#2 




; IT GOES TO LOCATION 


1258 


005252 


1 12714 


000100 






MOVB 


#INT.EN,»TACS 




JSET INTERRUPT ENABLE 


1259 


005256 


012737 


000340 


177776 




MOV 


#7*40, a#ps 




;SET TO PRIORITY LEVEL 7 


1260 


005264 


006302 






2$: 


ASL 


R2 




; KILL SOME TIME 


1261 


005266 


001376 








BNE 


2$ 






1262 


(005270 


012737 


000340 


177776 




MOV 


#340, P#PS 




;LOCK OUT THE WORLD 


1263 


005276 


005701 








TST 


Rl 




;DID AN INTERRUPT OCCUR? 


1264 


005300 


001005 








BNE 


3$ 




; BR IF YES 


1265 


005302 


022737 


000340 


001222 




CMP 


#7*40,e#TAPRIO 




;WAS AN INTERRUPT EXPECTED? 


1266 


005310 


002012 








BGE 


6$ 




; BR IF NO 


1267 


005312 


104006 








ERROR 


6 




; INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 


1268 




















1269 


005314 


022737 


000340 


001222 


3$: 


CMP 


#7#40,a#TAPRIO 




; INTERRUPT OCCURRED--SH0ULD IT HAVE? 


1270 


005322 


002405 








BLT 


6$ 




; BR IF YES 


1271 


005324 


104006 








ERROR 


6 




; INTERRUPT OCCURRED AT PRIORITY LEVEL 7 


1272 
1273 


005326 


005201 






4$: 


INC 


Rl 




;SET INTERRUPT KEY 


1274 


005330 


000002 








RTI 






; RETURN AFTER INTERRUPT 


1275 


005332 


022626 






5SS 


CMP 


(SP)+, (SP)+ 




;POP THE STACK 


1276 


005334 


104006 








ERROR 


6 




; INTERRUPT WENT TO LOCATION 


1277 




















1278 


005336 


005014 






6$: 


CLR 


aTACS 




; CLEAR INTERRUPT ENABLE 


1279 


005340 


013777 


001220 


173650 




MOV 


a#TAVEC+2, a TAVEC 




;SET TRAP CATCHER 


1280 


005346 


005077 


173646 






CLR 


fiTAVEC+2 






1281 


005352 


005037 


000000 






CLR 


@#0 






1282 


005356 


005037 


000002 






CLR 


£82 






1283 












1284 
1285 










;«TEST 


15 


TEST INTERRUPT WITH " 


TRANSFER REQUEST" s | 


1286 


005362 


000004 






TST15: 


SCOPE 








1287 


005364 


012767 


000010 


173574 




MOV 


#10,STIMES 


;D0 


10 ITERATIONS 


1288 


005372 


012767 


005420 


173506 




MOV 


«4S, $LPADR 


;SET 


SCOPE LOOP ADDRESS 


1289 


005400 


012767 


005530 


173562 




MOV 


#3S,SESCAPE 


; ESCAPE TO 3$ ON ERROR 


1290 


005406 


000005 








RESET 








1291 


005410 


010314 








MOV 


DRIVE, #TACS 




; SELECT DRIVE 


1292 


005412 


U2714 


000017 






MOVB 


#REWIND+GO,BTACS 




; POSITION THE TAPE 


1293 


005416 


104412 








WAITREADY 




?G0 WAIT FOR "READY" TO SET 


1294 


005420 


010314 






4$: 


MOV 


DRIVE, aTACS 




; SELECT DRIVE 


1295 


005422 


1 12714 


000001 






MOVB 


SWFG+GO, BTACS 




; START A "WRITE FILE GAP" 


1296 


005426 


104412 








WAITREADY 




;G0 WAIT FOR "READY" TO SET 


1297 


005430 


012737 


000340 


177776 




MOV 


#340, MPS 




;LOCK OUT ALL INTERRUPTS 


1298 


005436 


012701 


000001 






MOV 


il,Rl 




jSETUP TO WASTE SOME TIME 


1299 


005442 


012777 


005526 


173546 




MOV 


#2$,$TAVEC 




; SETUP INTERRUPT RETURN 


1300 


005450 


012777 


000340 


173542 




MOV 


•340,BTAVEC+2 




;PRI0R1TY "7" ON INTERRUPT 


1301 


005456 


012737 


000137 


000000 




MOV 


#137, a»0 




;CATCH INTERRUPT IF IT GOES 


1302 


005464 


012737 


005522 


000002 




MOV 


«5$,@#2 




; TO LOCATION 


1303 


005472 


112714 


000103 






MOVB 


SWRITE! INT.ENJGO, 


aTACS ; START A "WRITE" WITH "INT. EN," 


1304 


005476 


104413 








WAITXFER 




;G0 WAIT ON "TRANSFER REQUEST" TO SET 


1305 


005500 


005037 


177776 






CLR 


g#PS 




; LEVEL 


1306 


005504 


005000 








CLR 


R0 






1307 


005506 


006301 






is: 


ASL 


Rl 




; KILL A LITTLE TIME 


1308 


005510 


001376 








BNE 


i$ 






1309 


005512 


012737 


000340 


177776 




MOV 


#340, MPS 




fLOCK OUT ALL INTERRUPTS 


1310 


005520 


104006 








ERROR 


6 




j INTERRUPT FOR XFER REQ. FAILED 


1311 


005522 


022626 






5$; 


CMP 


(SP) + , (SP)4- 




; POP THE STACK 



TA11 BASIC LOGIC TEST (PART 2) 



DZTABC , NEW 


T15 


TEST INTERRUPT 


1312 


005524 


104006 






1313 


005526 


022626 






1314 


005530 


000005 






1315 


005532 


013777 


001220 


173456 


1316 


005540 


005077 


173454 




1317 


005544 


005037 


000000 




1318 


005550 


005037 


000002 




1319 










1320 










1321 










1322 


005554 


000004 






1323 


005556 


012767 


000001 


173402 


1324 


005564 


012767 


005724 


173376 


1325 


005572 


012767 


005724 


000064 


1 326 


005600 


012701 


000001 




1327 


005604 


012737 


000340 


177776 


1 328 


005612 


000005 






1329 


005614 


010314 






1330 


005616 


104412 






1331 


005620 


012777 


005714 


173370 


1332 


005626 


012777 


000340 


173364 


1333 


005634 


012737 


000137 


000000 


1334 


005642 


0127 37 


005720 


000002 


1 335 


005650 


112714 


000117 




1 336 


005654 


032714 


000240 




1337 


005660 


001 404 






1338 


005662 


005327 






1339 


005664 


000000 






1340 


005666 


001 372 






1 341 


005670 


1 0400 1 






1 342 


005672 


005037 


177776 




1343 


005676 


005000 






1344 


005700 


006301 






1345 


005702 


001 376 






1346 


005704 


0127 37 


000340 


177776 


1 347 


005712 


000 404 






1348 


005714 


022626 






1 349 


005716 


104006 






1350 


005720 


022626 






1351 


005722 


i 04006 






1 352 


005724 


000005 






1353 


005726 


013777 


001220 


173262 


1 354 


005734 


005077 


173260 




1355 


005740 


0050 3 7 


000000 




1 356 


005744 


005037 


000002 




1357 










1358 










1 359 










1360 


005750 


000004 






1 361 


005752 


012767 


000012 


173206 


1362 


005760 


012767 


006014 


173120 


1363 


005766 


012767 


006222 


173174 


1364 


005774 


000005 






1365 


005776 


010314 






1366 


006000 


1 12714 


000017 




1 367 


006004 


104412 







HAINDEC-1 1-DZTAB-C 

"TRANSFER REQUEST" 



MACY11 27(732) 
= 1 



2$: 

3$: 



ERROR 
CMP 
RESET 
MOV 
CLR 
CLR 
CLR 



(SP)+, (SP)+ 
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• INTERRUPT WENT TO LOCATION 
;POP STACK 
yCLEAR ALL 
;SET TRAP CATCHER 



e#TAVEC*2,0TAVEC 
9TAVEC+2 
$#0 
9#2 

, J*************************************************************** 
'.#TEST 16 TEST INTERRUPT WITH "READY" = AND "XFER REQ" * ! 



• LOCK OUT THE WORLD 
•CLEAR THE WORLD 
; SELECT DRIVE 

;GO WAIT FOR "READY" TO SET 
j RETURN IF INTERRUPT OCCURS 
•LEVEL "7" IF INTERRUPT 
;CATCH INTERRUPT IF IT GOES TO 
; LOCATION 



TST16: 


SCOPE 






MOV 


#i,$times ; ;do 1 I 




MOV 


#5$,$ESCAPE yjESCAPE 




MOV 


#5$, 3$ 




MOV 


#1,R1 




MOV 


§340,P#PS 




RESET 






MOV 


DRIVE, ©TAGS 




WAITREADY 




MOV 


#4$,?TAVEC 




MOV 


#340#0TAVEC+2 




MOV 


•137, P#0 




MOV 


#7$,S#2 




MOVB 


#rewindiint.enjgo,?tacs 


1 S s 


BIT 


#TR.REQ!READY,9TACS 




BEQ 


2$ 




DEC 


CPO + 


3$ 5 









BNE 


IS 




ERROR 


1 


2$: 


CLR 


&nps 




CLR 


R0 


5$; 


ASL 


Rl 




BNE 


6$ 




MOV 


#340,®»PS 




BR 


5S 


4$: 


CMP 


(SP)+, (SP)+ 




ERROR 


6 


7 $ « 


CMP 


(SP)+, (SP)+ 




ERROR 


6 


5$: 


RESET 






MOV 


g#TAVEC+2,3TAVEC 




CLR 


9TAVEC+2 




CLR 


@#0 




CLR 


W 



;GIVE READY TIME TO CLEAR 



; READY OR XFER REQ = "1" 
; ALLOW INTERRUPT 
; AT LEVEL 

•GIVE INTERRUPT TIME TO COME IN 

} LOCK OUT INTERRUPT 

jEXIT WITH NO ERRORS 

.•POP STACK 

; INTERRUPT OCCURRED 

;POP THE STACK 

; INTERRUPTTED TO LOCATION 

jCLEAR THE WORLD 

$ SET TRAP CATCHER 



♦»♦###♦*»*#**♦**«♦*##♦###♦♦#»#*#***********♦****************** 

TEST INTERRUPT WITH "XFER REQ" s 1 & "TIMING ERROR" s 1 
♦######*#####**##»#***♦»*******♦***************** 



TEST 17 

TST1 7 J SCOPE 
MOV 
MOV 
MOV 
RESET 
MOV 
MOVB 



#10.,$TIMES 
US, $ LP ADR 
#11$,SESCAPE 



DRIVE, 8TACS 
#REWIND|G0,9TACS 



WAITREADY 



??D0 10. ITERATIONS 
;?SET SCOPE LOOP ADDRESS 
; J ESCAPE TO 11$ ON ERROR 
jCLEAR ALL 
; SELECT DRIVE 
jGO TO "BOT" 
; WAIT ON READY 
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)ZTABC . NEW 


T17 


TEST INTERRUPT 


WITH 


" XFER REQ" 


s 1 & "TIMING ERROR" 


a 1 


1368 


006006 


112714 


000001 






MOVB 


#WFG{G0,|TAC5 


; GET ON OXIDE 


1369 


006012 


104412 








WAITREADY 




1370 


006014 


010314 






IS; 


MOV 


DRIVE, MACS 


; SELECT DRIVE 


1371 


006016 


1 12714 


000003 






MOVB 


IWPITE1 GO, PTACS 


; START A WRITE 


1372 


006022 


104413 








WAITXFEP 


; WAIT ON "TRANSFER REQUEST" 


1373 


006024 


112715 


000377 






MOVB 


#377,STAUB 


; WRITE A BYTE 


1374 


006030 


005000 








CLR 


R0 


;ZERO THE COUNTER 


1 375 


006032 


005001 








CLR 


Rl 




1 376 


006034 


105714 






2$: 


TSTB 


#TACS 


;CHECK "XFER REQ* 


t 377 


006036 


100405 








BMI 


3S 


jBP IF SET 


1378 


006040 


062703 


000010 






ADD 


#10, R0 


; FIND OUT HOW LONG IT TAKES 


1379 


006044 


005501 








ADC 


Rl 


;FOR "XFER REQ" TO SET 


1380 


006046 


100372 








BPL 


2$ 




1381 


006050 


104001 








ERROR 


1 


;"XFER REQ" DIDN'T SET 


1 382 


006052 


105714 






3$: 


TSTB 


9TACS 


fCHECK "XFER REQ" IF IT IS = 


1383 


006054 


100005 








BPL 


4$ 


; SOMETHING IS WRONG 


1384 


006056 


162700 


000001 






SUB 


«1,R0 


;DOWN COUNT THE COUNTER 


1385 


006062 


005601 








SBC 


Rl 


;SO A "TIMING ERROR" WILL OCCUR 


1386 


006064 


100372 








BPL 


3$ 




1387 
1388 


006066 


000401 








BR 


5$ 




I 389 
1390 


006070 


104001 






4$: 


ERROR 


1 


j"XFER REQ" CLEARED 


1391 


006072 


012777 


006160 


173116 


5$: 


MOV 


f 8$,?TAVEC 


; SETUP 1NTERRRUPT RETURN 


1392 


006100 


012777 


000340 


173112 




MOV 


#340,£TAVEC*2 


^PRIORITY "7" ON INTERRUPT 


1 393 


006106 


012737 


0001 37 


000000 




MOV 


#137, 9#0 


;CATCH INTERRUPT IF IT GOES 


1394 


0061 14 


012737 


006154 


000002 




MOV 


§7$,@S2 


TO LOCATION 


1395 


006122 


012701 


000001 






MOV 


#1#R1 


; SETUP TO WASTE SOME TIME 


1396 


0061 26 


005037 


177776 






CLR 


@#PS 


; ALLOW INTERRUPTS 


1397 


006132 


005000 








CLR 


R0 


; AT LEVEL "0" 


1398 


006134 


052714 


000100 






BIS 


#INT.EN,STACS 


; TURN ON "INTERRUPT ENABLE" 


1399 


006140 


006301 






6$: 


ASL 


Rl 


?GIVE INTERRUPT TIME TO OCCUR 


1400 


006142 


001376 








BNE 


6$ 




1401 


006144 


012737 


000340 


177776 




MOV 


»340,?#PS 


;LOCK OUT INTERRUPTS 


1402 
1403 


006152 


104006 








ERROR 


6 


t FAILED TO INTERRUPT WITH "XFER REQ" s 1 


1404 


006154 


022626 






7$: 


CMP 


(SP)+, (SP)+ 


;POP THE STACK 


1405 
1406 


006156 


104006 








ERROR 


6 


; INTERRUPT WENT TO LOCATION 


1407 


006160 


022626 






8$: 


CMP 


(SP)+, (SP)+ 


} POP THE STACK 


1408 


006162 


105715 








TSTB 


3TADB 


; KNOCK DOWN "XFER REQ" 


1409 


006164 


104412 








WAITREADY 


jWAIT ON "READY" CAUSED BY "TIMING ERROR" 


1410 


006166 


012777 


006220 


173022 




MOV 


»10$,9TAVEC 


; SETUP INTERRUPT RETURN 


1411 


006174 


012701 


000001 






MOV 


#l,Ri 


jSETUP TO WASTE TIME 


1412 


006200 


005037 


177776 






CLR 


§#PS 


} ALLOW INTERRUPTS 


1413 


006204 


006301 






9$; 


ASL 


Rl 


jGIVE INTERRUPTS TIME TO OCCUR 


1414 


006206 


001376 








BNE 


9$ 




1415 


006210 


012737 


000340 


177776 




MOV 


#340, |#PS 


;LOCK OUT INTERRUPTS 


1416 
1417 


006216 


104006 








ERROR 


6 


; " INTERRUPT FAILED TO OCCUR FOR READY 


1418 


006220 


022626 






108: 


CMP 


(SP)+, (SP)+ 


y POP THE STACK 


1419 


006222 


000005 






Ills 


RESET 




;CLEAR ALL 


1420 


006224 


012777 


001220 


172764 




MOV 


#TAVEC+2,9TAVEC 


| RESTORE THE TRAP CATCHER 


1421 


006232 


005077 


172762 






CLR 


9TAVEC+2 




1422 


006236 


005037 


000000 






CLR 


@#0 




1423 


006242 


005037 


000002 






CLR 


@#2 
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DZTABC .NEW #**»«»*##»SPAC ING FUNCTIONS****-* 



1424 








1425 








1426 








1427 








1428 








1429 








1430 








1431 


006246 


000004 




1432 


006250 


012767 


000012 


1433 


006256 


012767 


006274 


1434 


006264 


012767 


006370 


1435 


006272 


000005 




1436 


006274 


010314 




1437 


006276 


112714 


000017 


1438 


006302 


104412 




1439 


006304 


112714 


000001 


1440 


006310 


104412 




1441 


006312 


112714 


000003 


1442 


006316 


104413 




1443 


006320 


112715 


000377 


1444 


006324 


104413 




1445 


006326 


052714 


000020 


1446 


006332 


104412 




1447 


006334 


112714 


000007 


1448 


006340 


104412 




1 449 


006342 


032714 


004000 


1450 


006346 


001001 




1451 


006350 


104001 




1452 


006352 


005714 




1453 


006354 


100001 




1454 


006356 


104001 




1455 


006360 


03271 4 


020000 


1456 


006364 


001401 




1457 


006366 


104001 




1458 








1459 








1460 








1461 


006370 


000004 




1462 


006372 


012767 


000005 


1463 


006400 


012767 


006464 


1464 


006406 


012767 


006510 


1465 


006414 


000005 




1466 


006416 


010314 




1467 


006420 


112714 


000017 


1468 


006424 


104412 




1469 


006426 


1 12714 


000001 


1470 


006432 


104412 




1471 


006434 


112714 


000003 


1472 


006440 


104413 




1473 


006442 


112715 


000377 


1474 


006446 


104413 




1475 


006450 


052714 


000020 


1476 


006454 


104412 




1477 


006456 


112714 


000001 


1478 


006462 


104412 




1479 


006464 


112714 


000017 



////////// 

% THE FOLLOWING TEST ARE USED TO CHECK THE BASIC OPERATION OF THE SPACING FUNCTIONS 
;////////////////////////////////////////////////////////////,///////// 



172710 
172622 
172676 






TEST "BACK SPACE 


FILE 


GAP" 












SCOPE 










MOV 


#10., STIMES 


jDO 


10. 


ITERATIONS 


MOV 


*3S,SLPADR 


;SET 


SCOPE LOOP ADDRESS 


MOV 


*TST21,SESCAPE 


;ESCAPE 


TO TEST 21 ON ERROR 


RESET 










MOV 


DRIVE, PTACS 






SELECT DRIVE 


MOVB 


SREWINDIGO, PTACS 






POSITION TAPE ON CLE UR LEADER 


w A I TREAD Y 






GO WAIT FOR "READY" "0 SET 


MOVB 


IWFG1GO, PTACS 






WRITE A FILE GAP OFF OF CLEAR 


WAITREADY 






GO WAIT FOR "READY TO SET 


MOVB 


#WRITEIG0,, @TACS 






PUT A DATA BLOCK ON THE TAPE 


WAITXFER 






GO WAIT ON "TRANSFER REQUEST" 


MOVB 


f 377,PTADB 






KNOCK DOWN XFER REQ 


WAITXFER 






GO WAIT ON "TRANSFER REQUEST" 


BIS 


#ILBS, PTACS 






WRI TE " C RC " 


WAITREADY 






GO WAIT FOR "READY" TO SET 


MOVB 


IBSFG'GO, PTACS 






BACK UP OVER THE DATA 


WAITREADY 






GO WAIT FOR "READY" TO SET 


BIT 


*FGAP, PTACS 






CHECK i OP FILE GAP 


BNE 


IS 






BR IF "FILE GAP" =1 


ERROR 


1 






ERRcR— KO r-LE GAP INDICATION 


TST 


PTACS 






IS "ERROR" =1? 


BPL 


2S 






BR IF NO 


ERROR 


1 






"ERROR" si 


BIT 


^LEADER, PTACS 






IS "CLEAR LEADER" =1? 


BEO 


TST21 


;BR 


IF NO 


ERROR 


1 






" WFG" OR "BSFG" FAILED 



172566 
172500 
172554 



;*TEST 21 TEST "SPACE FORWARD FILE GAP" FUNCTION 

» ; ■»•»■»«•■&# 
TST21 : SCOPE 

*5, STIMES ; ;D0 5 ITERATIONS 

#1S, SLPAUR ; ;SET SCOPE LOOP ADDRESS 

#TST22,SESCAPE ; ; ESCAPE TO TEST 22 ON ERROR 



MOV 
MOV 
MOV 
RESET 
MOV 
MOVB 



DRIVE, PTACS 
SREWIND 'GO, PTACS 
WAITREADY 

MOVB #WFG" GO, PTACS 
WAITREADY 

MOVB #WRlTEiGO,gTACs 
WAITXFER 

MOVB #377,PTADB 
WAITXFER 

BIS « ILBS, PTACS 

WAITREADY 

MOVB #WFGI GO, PTACS 
WAITREADY 

MOVB #REWINDJGO, PTACS 



; SELECT A DRIVE 

;POSITION THE TAPE 

;G0 WAIT FOR "READY" TO SET 

•WRITE FILE GAP OFF OF CLEAR LEADER 

•GO WAIT FOR "READY" TO SET 

JPUT SOME DATA ON THE TAPE 

;G0 WAIT ON "TRANSFER REQUEST" TO SET 

;KNOCK DOWN XFER REQ 

;G0 WAIT ON "TRANSFER REQUEST" TO SET 

; WRITE CRC AND SHUT DOWN 

;G0 WAIT FOR "READY" TO SET 

; WRITE FILE GAP after THE RECORD 

;G0 WAIT FOR "READY" TO SET 

REPOSITION THE TAPE 



TA1 1 BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB-C 



LT ABC .NEW 


T21 


TEST " 


1480 


006470 


104412 




1481 


006472 


112714 


000013 


1482 


006476 


104412 




1483 


006500 


032714 


004000 


1484 


006504 


001001 




1485 


006506 


104001 




1486 








1487 








1488 








1489 


006510 


000004 




1490 


006512 


012767 


000005 


1491 


006520 


012767 


006536 


1492 


006526 


012767 


006622 


1493 


006534 


000005 




1494 


006536 


010314 




1495 


006540 


112714 


000017 


1496 


006544 


104412 




1497 


006546 


112714 


000001 


1498 


006552 


104412 




1499 


006554 


112714 


000003 


1500 


006560 


104413 




1501 


006562 


112715 


000377 


1502 


006566 


104413 




1503 


006570 


052714 


000020 


1504 


006574 


104412 




1505 


006576 


112714 


000011 


1506 


006602 


104412 




1507 


006604 


005714 




1508 


006606 


100001 




1509 


006610 


104001 




1510 


006612 


032714 


020000 


1511 


006616 


001401 




1512 


006620 


104001 




1513 








1514 








1515 








1516 


006622 


000004 




1517 


006624 


012767 


000005 


1518 


006632 


012767 


006716 


1519 


006640 


012767 


006742 


1520 


006646 


000005 




1521 


006650 


010314 




1522 


006652 


112714 


000017 


1523 


006656 


104412 




1524 


006660 


112714 


000001 


1525 


006664 


104412 




1526 


006666 


112714 


000003 


1527 


006672 


104413 




1528 


006674 


112715 


000377 


1529 


006700 


104413 




1530 


006702 


052714 


000020 


1531 


006706 


104412 




1532 


006710 


112714 


000001 


1533 


006714 


104412 




1534 


006716 


112714 


000017 


1535 


006722 


104412 
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WAITREADY 

MOVB #SFFGIGO, PTACS 
WAITREADY 



BIT 
BNE 
ERROR 



#FGAP, PTACS 

TST22 

1 



;G0 WAIT FOR "READY" TO SET 
;SPACE OVER THE RECORD 
•GO WAIT FOR "READY" TO SET 
; SETTING IN A FILE GAP? 
;?BR IF YES 

;N0 FILE GAP INDICATION 



;*TEST 22 



TEST "BACK SPACE BLOCK GAP" 



172446 
172360 
172434 



SCOPE 












MOV 


#5, STIMES 


;D0 


5 ITERATIONS 






MOV 


#1S,SLPADR 


;SET 


SCOPE LOOP ADDRESS 






MOV 


#TST23,SESCAPE 


jESCAPE TO TEST 23 ON ERROR 






RESET 












MOV 


DRIVE, PTACS 




; SELECT DRIVE 






MOVB 


#REWIND! GO, PTACS 




;G0 TO CLEAR LEADER 






WAITREADY 




;G0 WAIT FOR "READY" TO SET 






MOVB 


»WFG1G0, PTACS 




; WRITE A FILE GAP 






WAITREADY 




;G0 WAIT FOR "READY" TO SET 






MOVB 


»WRITEiGO, PTACS 




;WRITE A BLOCK OF DATA 






WAITXFER 




;G0 WAIT ON "TRANSFER REQUEST" 


TO 


SET 


MOVB 


#377,PTADB 




; WRITE ONE BYTE 






WAITXFER 




;G0 WAIT ON "TRANSFER REQUEST" 


TO 


SET 


BIS 


tILBS, PTACS 




; WRITE "CRC " 






WAITREADY 




?G0 WAIT FOR "READY" TO SET 






MOVB 


#BSBG!GO, PTACS 




; BACK OVER THE DATA 






WAITREADY 




;G0 WAIT FOR "READY" TO SET 






TST 


PTACS 




;CHECK FOR ERRORS 






BPL 


2S 




; BR IF NONE 






ERROR 


1 




; ERROR OCCURRED 






BIT 


ILEADER, PTACS 




; IS CLEAR LEADERr 1 ? 






BEQ 


TST23 ; 


; BR 


IF NO 






ERROR 


1 




;0N CLEAR LEADER 







TEST "SPACE FWD BLOCK GAP" 



172334 
172246 
172322 



SCOPE 










MOV 


#5, STIMES 


; ;D0 5 


ITERATIONS 




MOV 


#1S,SLPADR 


; ;SET 


SCOPE LOOP ADDRESS 




MOV 


#TST24,SESCAPE 


; ;ESCAPE TO TEST 24 ON ERROR 




RESET 










MOV 


DRIVE, PTACS 








MOVB 


# REWIND J GO, PTACS 




J GO TO CLEAR LEADER 




WAITREADY 




;G0 WAIT FOR "READY" TO 


SET 


MOVB 


# WFG i GO , PTACS 




J PUT FILE GAP ON TAPE 




WAITREADY 




;G0 WAIT FOR "READY" TO 


SET 


MOVB 


♦WRITE] GO, PTACS 




; WRITE ONE BYTE BLOCK 




WAITXFER 




;G0 WAIT ON "TRANSFER REQUEST" TO 


MOVB 


*377,PTADB 








WAITXFER 




;G0 WAIT ON "TRANSFER REQUEST" TO 


BIS 


#ILBS, PTACS 




; WRITE "CRC" 




WAITREADY 




;G0 WAIT FOR "READY" TO 


SET 


MOVB 


#WFG1G0, PTACS 




; WRITE A FILE GAP AFTER 


THE DATA 


WAITREADY 




;G0 WAIT FOR "READY" TO 


SET 


MOVB 


#REWINDiGO,$TACS 




;G0 TO "CLEAR LEADER" 




WAITREADY 




;G0 WAIT FOR "READY" TO 


SET 



TA1 1 BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB-C MACY11 27(732) ll-JUN-76 13:26 PAGE 33 SEQ 0047 

DZTABC .NEW T23 TEST "SPACE FWD BLOCK GAP " 



1536 


006724 


1 12714 


000015 


1537 


006730 


104412 




1538 


006732 


032714 


124000 


1539 


006736 


001401 




1540 


006740 


104001 




1541 








1542 








1543 








1544 








1545 








1546 








1547 








1548 


006742 


000004 




1549 


006744 


012767 


000012 


1550 


006752 


012767 


006770 


1551 


006760 


012767 


007050 


1552 


006766 


000005 




1553 


006770 


010314 




1554 


006772 


1 12714 


000017 


1555 


006776 


104412 




1556 


007000 


U2714 


000003 


1557 


007004 


10441 3 




1558 


007006 


012715 


000377 


1559 


£07012 


10441 3 




1560 


00701 4 


052714 


000020 


1561 


007020 


104412 




1562 


007022 


112714 


000007 


1563 


007026 


104412 




1564 


007030 


032714 


004000 


1565 


007034 


001001 




1566 


007036 


104001 




1567 


007040 


032714 


120000 


1568 


007044 


001401 




1569 


007046 


1 04001 




1570 








1571 








1572 








1573 


007050 


000004 




1574 


007052 


012767 


000012 


1575 


007060 


012767 


007106 


1576 


007066 


012767 


007176 


1577 


007074 


000005 




1578 


007076 


010314 




1579 


007100 


112714 


000017 


1580 


007104 


104412 




1581 


007106 


1 12714 


000003 


1582 


007 1 12 


10441 3 




1583 


0071 14 


1 12715 


000377 


1584 


007120 


10441 3 




1585 


007122 


052714 


000020 


1586 


007126 


104412 




1587 


0071 30 


1 12714 


000001 


1588 


007134 


104412 




1589 


007136 


1 12714 


00001 1 


1590 


007142 


104412 




1591 


007144 


112714 


000015 



MOVB #SFBGlGO,eTACS jSEE IF SFBG WILL SPACE OVER THE BLOCK OF DATA 

WAITREADX ;GO WAIT FOR "READY* TO SET 

BIT »ERROR! LEADER I FGAP,PTACS ; "ERROR" SHOULD BE CLEAR 

BEQ TST24 ; ;SO SHOULD "CLEAR LEADER" AND "FILE GAP" 

ERROR I ; TAPE IS IN THE WRONG PLACE AFTER A SFBG 

////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////// 
THE FOLLOWING TESTS ARE USED TO CHECK THE "FILE GAP" CIRCUITS 



♦ TEST, 24 TEST AUTOMATIC "WFG" WHEN WRITING OFF OF "CLEAR LEADER" 

TST24T SCOPE 



172214 
172126 

172202 



MOV 


#10.,$TIMES ; 


;DO 


10. ITERATIONS 






MOV 


#1S,$LPADR ; 


;SET 


SCOPE LOOP ADDRESS 






MOV 


&TST25, SESCAPE ; 


; ESCAPE TO TEST 25 ON ERROR 






RESET 












MOV 


DRIVE, 3TACS 




; SELECT DRIVE 






MOVB 


#FEWIND!GO,fJTACS 




;GO TO CLEAR LEADER 






WAITREADY 




•GO WAIT FOR "READY" TO SET 






MOVB 


#WRITE'GO,§TACS 




; WRITE "AUTO. FILE GAP" 






WAITXFER 




;GO WAIT ON "TRANSFER REQUEST" 


TO 


SET 


MOV 


#377, 3TADB 




jWRITE "DATA" 






WAITXFER 




•GO WAIT ON "TRANSFER REQUEST" 


TO 


SET 


BIS 


#ILBS, ITACS 




; WRITE "CRC" 






WAITREADY 




;GO WAIT FOR "READY" TO SET 






MOVB 


#BSFG!GO, PTACS 




; BACK OVER THE DATA BLOCK 






WAITREADY 




;GO WAIT FOR "READY" TO SET 






BIT 


#FGAP,PTACS 




; IN FILE GAP? 






BNL 


2$ 




; BR IF YES 






ERROR 


i 




;NO FILE GAP INDICATION 






BIT 


8 ERROR! LEADER, PTACS 


; ERROR SHOULD BE CLEAR 






BEQ 


TST25 


;so 


SHOULD "CLEAR LEADER" 






ERROR 


1 




; ERROR OP CLEAR LEADER ON A (1) 







172106 
172020 
172074 



SCOPE 








MOV 


#10.,STIMES 


j DO 


10. ITERATIONS 


MOV 


*1$,$LPADR ; 


;SET 


SCOPE LOOP ADDRESS 


MOV 


#TST26, SESCAPE 


; ESCAPE TO TEST 26 ON ERROR 


RESET 








MOV 


DRIVE, PTACS 




; SELECT DRIVE 


MOVB 1 


# REWIND J GO, M ACS 




;GO TO BEGINNING OF 


WAITREADY 




;WAIT ON "READY" 


MOVB 1 


#WPITE!GO,0TACS 




; START A WRITE 


WAITXFER 




;WAIT ON "XFER REO" 


MOVB 


*377,STADB 




•WRITE ONE BYTE 


WAITXFER 




; WAIT ON "XFER REQ" 


BIS 


#ILBS,PTACS 




; WRITE "CRC 


WAITREADY 




;WAIT ON "READY" 


MOVB 


# WFG 1 GO, @TACS 




; WRITE A "FILE GAP" 


WAITREADY 




•WAIT ON "READY" 


MOVB 


#BSBG!GO, (8TACS 




" f BACK OVER THE DATA 


WAITREADY 




; WAIT ON "READY" 


MOVB 


iSFBGJ GO, BTACS 




; SPACE OVER THE DATA 



T A 1 1 BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB-C 



ZT ABC 


NEW 


T25 


TEST " 


1592 


007 150 


104412 




1593 


007152 


1 12714 


000005 


1594 


007156 


104412 




1595 


007160 


005714 




1596 


007162 


100401 




1597 


007164 


104001 




1598 


007166 


03: 714 


004000 


1599 


007172 


00:, 001 




1600 


007174 


10< ; 001 




1601 








1602 








1603 








1604 


007176 


000004 




1605 


007200 


01, 76 7 


000012 


1606 


007206 


01*767 


007234 


1607 


007214 


01 i 767 


007324 


1608 


007222 


00f?005 




1609 


007224 


010314 




1610 


007226 


111714 


000017 


1611 


007232 


104412 




1612 


007234 


1 12714 


000003 


1613 


007240 


104413 




1614 


007242 


11*715 


000377 


1615 


007246 


104413 




1616 


007250 


05i 71 4 


000020 


1617 


007254 


104412 




1618 


007256 


112714 


000001 


1619 


007262 


104412 




1620 


007264 


112714 


00001 1 


1621 


007270 


104412 




1622 


007272 


1 12714 


000015 


1623 


007276 


104412 




1624 


007300 


112714 


000015 


1625 


007304 


104412 




1626 


007306 


005714 




1627 


007310 


100401 




1628 


007312 


104001 




1629 


007314 


032714 


004000 


1630 


007320 


001001 




1631 


007322 


104001 




1632 








1633 








1634 








1635 


007324 


000 '304 




1636 


007326 


012767 


000012 


1637 


007334 


012767 


007430 


1638 


007342 


012/67 


007574 


1639 


007350 


000005 




1640 


007352 


010 114 




1641 


007354 


104 U2 




1642 


007356 


112714 


000017 


1643 


007362 


104412 




1644 


007364 


112714 


000001 


1645 


007370 


104412 




1646 


007372 


112/14 


000003 


1647 


007376 


104413 





TEST " READ" INTO FILE GAP CAUSES AN ERROR 



WAITREADY 



MACY11 27(732) 1 l-JUN-76 13:26 PAGE 34 



;WAIT ON "READY" 



171760 
171672 
171746 



MOVB 


#READ!GO,PTACS 






; START A "READ" 


WAITREADY 






;WAIT ON "READY" 


TST 


fTACS 






JDID AN "ERROR" OCCUR? 


BMI 


2$ 






; BR IF YES 


ERROR 


1 






; ERROR FAILED TO SET 


BIT 


#FGAP,OTACS 






IS FILE GAP=1? 


BNE 


TST26 


J BR 


IF 


YES 


ERROR 


1 






; FILE GAP N0T=1 


26 


TEST "SFBG" INTO 


FILE 


GAP CAUSES AN ERROR 


SCOPE 










MOV 


#10,,STIMES 


JDO 


10. 


ITERATIONS 


MOV 


*1$,$LPADR 


?SET 


SCOPE LOOP ADDRESS 


MOV 


STST27, SESCAPE 


JESCAPE 


TO TEST 27 ON ERROR 


RESET 










MOV 


DRIVE, PTACS 






; SELECT DRIVE 


MOVB 


IREWINDi GO, PTACS 






;G0 TO BEGINNING OF TAPE 


WAITREADY 






;WAIT ON "READY" 


MOVB 


#WRITE{GO,0TACS 






; START A WRITE 


WAITXFER 






;WAIT ON "XFER REQ" 


MOVB 


#377,0TADB 






; WRITE ONE BYTE 


WAITXFER 






; WAIT ON "XFER REO" 


BIS 


#ILBS,3TACS 






;WRITE"CRC" 


WAITREADY 






; WAIT ON "READY" 


MOVB 


#wfg:go,ptacs 






; WRITE A "FILE GAP" 


WAITREADY 






; WAIT ON "READY" 


MOVB 


»BSBG!GO, 3TACS 






; BACK OVER THE DATA 


WAITREADY 






; WAIT ON "READY" 


MOVB 


#SFBGiG0,9TACS 






y SPACE OVER THE DATA BLOCK 


WAITREADY 






; WAIT ON "READY" 


MOVB 


f SFBG!GO,$JTACS 






; START A "SFBG" 


WAITREADY 






; WAIT ON "READY" 


TST 


fTACS 






;DID AN "ERROR" OCCUR? 


BMI 


2$ 






•BR IF YES 


ERROR 


1 






; ERROR FAILED TO SET 


BIT 


#FGAP,9TACS 






; IS FILE GAPsl? 


BNE 


TST27 • 


; BR 


IF 


YES 


ERROR 


1 






; FILE GAP N0T=1 



171632 
171544 
171620 



*TEST 27 TEST "ERROR" OUTPUT OF THE STATUS ROM WITH "FILE GAPal" 

TST27 : SCOPE 



MOV 


#10.,$TIMES ; 


IDO 10. ITERATIONS 


MOV 


#1$,SLPADR • 


|SET SCOPE LOOP ADDRESS 


MOV 


STST30, SESCAPE ; 


; ESCAPE TO TEST 30 ON ERROR 


RESET 






MOV 


DRIVE, 3TACS 


; SELECT DRIVE 


WAITREADY 


; MAKE SURE READY IS SET 


MOVB 


#REWINDlGO,gTACS 


;G0 TO BEGINNING OF TAPE 


WAITREADY 


; WAIT ON "READY" 


MOVB 


# WFG J GO, fTACS 


; GET OFF OF CLEAR LEADER 


WAITREADY 


; WAIT FOR READY 


MOVB 


#WRITE!GO,§TACS 


; START A WRITE 


WAITXFER 


jWAIT ON "XFER REQ" 



TA11 BASIC LOGIC TEST 
DZTABC.NEW T27 



(PART 2) MAINDEC-11-DZTAB-C MACY11 27(732) ll-JUN-76 13:26 PAGE 35 

TEST " ERROR" OUTPUT OF THE STATUS ROM WITH "FILE GAP=1 " 



SEQ 0049 



1 c !q 


am Aaa 
aV l tww 


1 jid41 * 


90 £7 10 3/1 




MOVE 


#377, 


0TADB 


WRITE ONE BYTE 






Wo 1 tw't 


1 S !■?! e 






WAITXFER 


; WAIT ON "XFER REQ" 






anl Ant. 


! eildi * 


aaa m 




MOVB 


#377, 


9TADB 


WRITE 




j^: 










WAITXFER 




WAIT ON "XFER REQ" 






a on it a 
w /tit 


052714 


aaaaoa 
WW 4 w 




BIS 


#ILBS 


, &TACS ;WRITE "CRC" 






am Ala 

WW 1 t £W 


4 01 A 41 O 
1 t"t <i I c 






WAITREADY 


; WAIT ON "READY" 










aaaaa 1 

WWW 1 




MOVB 


•WFGIGO, 3TACS 


WRITE A "FILE GAP" 




1655 


lOw lido 


A K>44 1 a£ 






WAITREADY 




WAIT ON "READY" 




1656 


007 430 


112714 


1 / 


1 $ < 


MOVB 


# RE WIND! GO fit ACS 


BACK OVER THE DATA 




El 


53 k) #434 


104412 






WAITREADY 




WAIT ON "READY 88 




1658 


007436 


S 1 27 1 4 


(3t /a /a 1 l 




MOVB 


g SFFG { GO , 9TACS 


DO A SPACE FWD FILE GAP 


« f 


WW / 4 4 


4 01 A A * *5 

1 » 4 4 1 I 






WAITREADY 










01/31 T A A A 

Bo / 444 








BIT 


*FGAP 


,@TACS 


IS FILE GAP=l? 






filial'? 1K£{ 


t>V l ww l 






BNE 


2$ 




BR IF YES 






007452 


1 S04oia 1 






ERROR 


1 




FILE GAP N0T=1 




1 66 3 








; NOW 


CHECK "ERROR" BIT FOR ALL FUNCTIONS 








«£» 7 AC A 




000000 


2$ • 


MOVB 


»WFG, 


iTACS 


CHECK "ERROR" WITH 


"WFG" 




SJkJ / 4O0 


0057 1 4 






TST 


&TACS 




SAMPLE THE "ERROR" 


BIT 


1666 




1 Www I 






BPL 


3$ 




BR IF "ERROR 55 = 




1667 


007 464 


10400 1 






ERROR 


1 




"ERROR" NOT = 




1663 


007 466 


112714 


000002 


3S ! 


MOVB 


#WRITE,@TACS 


CHECK "ERROR" WITH 


"WRITE" 


1 669 


007 472 


0057 1 4 






TST 


@TACS 




SAMPLE THE "ERROR" 


BIT 


! f I? 




J OWWW 1 






BPL 


4$ 




BR IF "ERROR" = 




1671 


007476 


10400 1 






t-ODHEJ 

tKKUH 


1 




"ERROR" NOT = 




1672 


007500 


112714 


WWWWW<* 


4S * 


MOVB 


#READ 


,§TACS 


CHECK " ERROR" WITH 


"READ" 


16 7 3 


007504 


0057 1 4 






TST 


PTACS 




SAMPLE THE "ERROR" 


BIT 




007506 


1 0040 1 






BMI 


5$ 




BR IF "ERROR" = 1 




1675 


007 510 


1 0400 1 






ERROR 


1 




"ERROR" NOT = 1 




1676 


0075 1 2 


112714 


000006 


5 S « 


MOVB 


#BSFG 


, 3TACS 




"BSFG" 


167 7 


0075 1 6 


0057 1 4 






TST 


9TACS 




SAMPLE THE "ERROR" 


BIT 






1 WoWlo I 






BPL 


6$ 




BR IF "ERROR" = 




1679 




1 o4ioio 1 






ERROR 


1 




" ERROR" NOT = 




1680 


0075 2 4 


112714 


0000 1 


s 


MOVB 


#BSBG 


,3TACS 


CHECK "ERROR" WITH 


"BSBG" 




007530 








TST 


iTACS 




SAMPLE THE "ERROR" 


BIT 


1682 




4 Jl fit ft 1 






BPL 


7S 




BR IF "ERROR" = 




:? f 


. * /2 "7 C '1 /) 

k/w / j J 4 


1 10410 10 1 






ERROR 


1 




"ERROR" NOT r 




168 4 




112714 




7 S * 


MOVB 


#SFFG 


, iTACS 


CHECK "ERROR" WITH 


" SFFG" 




H11CA1 


aac i i 4 

/ i 






1ST 


§TACS 




SAMPLE THE "ERROR" 


BIT 


1686 


CI (A 7 «i A A 
v v / J 4 4 


4 £3 0t£td 1 

i KJkytJly 1 






BPL 


8$ 




BR IF "ERROR" s 




1687 


0075 46 


1 0400 1 






ERROR 


1 




"ERROR" NOT s 




1688 


007550 


112714 


000014 


8$: 


MOVB 


#SFBG 


, iTACS 


CHECK "ERROR" WITH 


"SFBG" 


1689 


007554 


005714 






TST 


PTACS 




SAMPLE THE "ERROR 11 


BIT 


1690 


007556 


100401 






BMI 


9$ 




BR IF " ERROR" = 1 




1691 


007560 


104001 






ERROR 


1 




"ERROR" NOT s 1 




1692 


007562 


112714 


000016 


9s: 


MOVB 


if REWIND, MACS 


CHECK "ERROR" WITH 


"REWIND" 


1693 


007566 


005714 






TST 


§TACS 




SAMPLE THE "ERROR" 


BIT 


1694 


007570 


100001 






BPL 


TST30 


;;BR IF ' 


ERROR" = 




1695 


007572 


104001 






ERROR 


1 




"ERROR" NOT = 
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1696 








1697 








1698 








1699 








1700 








1701 








1702 








1703 


007574 


000004 




1704 


007576 


012767 


000012 


1705 


007604 


012767 


007700 


1706 


007612 


012767 


010000 


1707 


007620 


000005 




1708 


007622 


010314 




1709 


007624 


104412 




1710 


007626 


1 12714 


000017 


1711 


007632 


104412 




1712 


007634 


1 12714 


000001 


1713 


007640 


104412 




1714 


007642 


1 1271 i 


000003 


1715 


007646 


104413 




1716 


007650 


112715 


000377 


1717 


007654 


104413 




1718 


007656 


112715 


000377 


1719 


007662 


104413 




1720 


007664 


052714 


000020 


1721 


007670 


104412 




1722 


007672 


112714 


000001 


1723 


007676 


104412 




1724 


007700 


112714 


000017 


1725 


007704 


104412 




1726 


007706 


112714 


000013 


1727 


007712 


104412 




1728 


007714 


032714 


004000 


1729 


007720 


001001 




1730 


007722 


104001 




1731 


007724 


112714 


000007 


1732 


007730 


104412 




1733 


007732 


032714 


004000 


1734 


007736 


001001 




1735 


007740 


104001 




1736 


007742 


032714 


100000 


1737 


007746 


001401 




1738 


007750 


104001 




1739 


007752 


112714 


000007 


1740 


007756 


104412 




1741 


007760 


032714 


100000 


1742 


007764 


001001 




1743 


007766 


104001 




1744 


007770 


032714 


020000 


1745 


007774 


001001 




1746 


007776 


104001 





THE FOLLOWING TESTS INSURE THAT BACKING INTO "CLEAR LEADER" CAUSES AN ERROR 
////////////////////////////////////////////////////////////////////// 

♦TEST 30 TEST BACK-SPACE-FILE-GAP INTO CLEAR LEADER 

• #«»#»##*######®««*#»##«»*######*###»###«-##»###»*##«®**###«####^ 
TST30 : 



171362 
171274 

171350 



SCOPE 










MOV 


#10.,STIMES J 


jDO 


10. 


ITERATIONS 


MOV 


*1$,$LPADR ; 


;SET 


SCOPE LOOP ADDRESS 


MOV 


#TST31,$ESCAPE , 


jESCAPE 


TO TEST 31 ON ERROR 


RESET 










MOV 


DRIVE, iTACS 






SELECT DRIVE 


WAITREADY 






MAKE SURE READY IS SET 


MOVB 


SREWIND!GO,gTACS 






GO TO BEGINNING OF TAPE 


WAITREADY 






WAIT ON "READY" 


MOVB 


SWFGiG0,3TACS 






GET OFF OF CLEAR LEADER 


WAITREADY 






WAIT FOR READY 


MOVB 


8WRITElG0,gTACS 






START A WRITE 


WAITXFER 






WAIT ON "XFER REQ" 


MOVB 


#377, 3TADB 






WRITE ONE BYTE 


WAITXFER 






WAIT ON "XFER REQ" 


MOVB 


#377,PTADB 






WRITE 


WAITXFER 






WAIT ON "XFER REQ" 


BIS 


# ILBS, iTACS 






WRITE "CRC" 


WAITREADY 






WAIT ON "READY" 


MOVB 


#WFG!GQ, iTACS 






WRITE A "FILE GAP" 


WAITREADY 






WAIT ON "READY" 


MOVB 


#REWIND«G0,9TACS 






BACK OVER THE DATA 


WAITREADY 






WAIT ON "READY" 


MOVB 


#SFFG«GO,PTACS 






DO A SPACE FWD FILE GAP 


WAITREADY 








BIT 


#FGAP,£TACS 






IS FILE GAP=1? 


BNE 


2$ 






BR IF YES 


ERROR 


i 






FILE GAP N0T=1 


MOVB 


«BSFG!GO,PTACS 




;G0 TO FIRST FILE GAP ON TAPE 


WAITREADY 




;G0 WAIT FOR "READY" TO SET 


BIT 


*FGAP, 9TACS 






IN A FILE GAP? 


BNE 


3$ 






BR IF YES 


ERROR 








DIDN'T STOP IN A GAP 


BIT 


#ERPOR, PTACS 






DID WE GET AN ERROR? 


BEQ 


4$ 






BR IF NO 


ERROR 


1 




5 AN ERROR OCCURRED 


MOVB 


*BSFGIG0,3TACS 






BACK ONTO THE CLEAR LEADER 


WAITREADY 




;G0 WAIT FOR "READY" TO SET 


BIT 


♦ERROR, 3TACS 






CHECK FOR AN ERROR 


BNE 


5$ 




5 BR IF "ERROR" BIT IS SET 


ERROR 


1 






"ERROR" BIT FAILED TO SET 


BIT 


♦LEADER, ?TACS 




; CHECK FOR CLEAR LEADER 


BNE 


TST31 


: br 


IF "CLEAR LEADER" x 1 


ERROR 


1 






"ERROR" WASN'T DUE TO "CLEAR 
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1747 








1748 








1749 








1750 


010000 


000004 




1751 


010002 


012767 


000012 


1752 


010010 


012767 


010104 


1753 


010016 


012767 


010172 


1754 


010024 


000005 




1755 


01 0026 


010314 




1756 


010030 


1 04412 




1757 


010032 


112714 


000017 


1758 


010036 


104412 




1759 


010040 


1 12714 


000001 


1760 


010044 


104412 




1761 


010046 


112714 


000003 


1762 


010052 


104413 




1763 


010054 


1 12715 


000377 


1764 


010060 


104413 




1765 


010062 


1 12715 


000377 


1766 


010066 


104413 




1767 


010070 


052714 


000020 


1768 


010074 


104412 




1769 


010076 


1 1 2714 


000001 


1770 


010102 


104412 




1771 


010104 


112714 


000017 


1772 


010110 


104412 




1773 


010112 


1 12714 


00001 3 


1774 


0101 16 


104412 




1775 


010120 


032714 


004000 


1776 


010124 


001001 




1777 


010126 


104001 




1778 


010130 


1 12714 


000011 


1779 


010134 


104412 




1780 


0101 36 


032714 


124000 


1781 


010142 


001401 




1782 


010144 


104001 




1783 


010146 


1 12714 


00001 1 


1784 


010152 


104412 




1785 


010154 


005714 




1786 


010156 


100401 




1787 


010160 


104001 




1788 


010162 


032714 


020000 


1789 


010166 


001001 




1790 


010170 


104001 




1791 








1792 








1793 








1794 








1795 








1796 








1797 








1798 


010172 


000004 




1799 


010174 


012767 


000012 


1800 


010202 


012767 


010230 


1801 


010210 


012767 


010330 


1802 


010216 


000005 





171156 
171070 
171144 



;*TEST 31 TEST BACK-SPACE-BLOCK-GAP INTO CLEAR LEADER 

j j 

TST31 : SCOPE 

; ;DO 10. ITERATIONS 
: ;SET SCOPE LOOP ADDRESS 
; ;ESCAPE TO TEST 32 ON ERROR 



#10,,$TIMES 
f 1$,SLPADR 

#TST32,$ESCAPE 



MOV 
MOV 
MOV 
RESET 

MOV DRIVE, iTACS 

WAITREADY 

MOVB SREWINDi GO,?TACS 
WAITREADY 

MOVB IWFG'GO, STACS 
WAITREADY 

MOVB #WRIT£IGO, 0TACS 
WAITXFER 

MOVB *377,BTADB 
WAITXFER 

MOVB #377, 0TADB 
WAITXFER 

BIS #ILBS,@TACS 
WAITREADY 

MOVB #WFG< GO, STACS 
WAITREADY 

MOVB #REWIND!GO,STACS 
WAITREADY 

MOVB #SFFGlGO,9TACS 

WAITREADY 

BIT f FGAP, gTACS 

BNE 2$ 
ERROR 1 

MOVB #BSBG! GO, @TACS 
WAITREADY 

BIT # ERROR J FGAP J LEADER, 3TACS 

BEQ 3$ 
ERROR 1 

MOVB #BSBGJG0,9TACS 
WAITREADY 



TST 

BMI 

ERROR 

BIT 

BNE 

ERROR 



STAGS 

4$ 

1 

♦LEADER, 9TACS 
TST32 

I 



SELECT DRIVE 
MAKE SURE READY IS SET 
GO TO BEGINNING OF TAPE 
WAIT ON "READY" 
j GET OFF OF CLEAR LEADER 
WAIT FOR READY 
START A WRITE 
WAIT ON "XFER REG" 
WRITE ONE BYTE 
WAIT ON "XFER REG" 
WRITE 

WAIT ON "XFER REQ" 

WRITE "CRC 

WAIT ON "READY" 

WRITE A "FILE GAP * 

WAIT ON "READY" 

BACK OVER THE DATA 

WAIT ON "READY" 

DO A SPACE FWD FILE GAP 

j IS FILE GAP= i 1 
BR IF YES 
FILE GAP NOT=l 

GO TO FIRST FILE GAP ON TAPE 
GO WAIT FOR "READY" TO SET 

;DID WE GET ANY ERROR? 

BR IF NO 

AN ERROR OCCURRED 
BSBG WHILE IN A FILE GAP 
GO WAIT FOR "READY" TO SET 
"ERROR" BIT SHOULD BE SET 
BR IF IT IS 

"ERROR" BIT WASN'T SET 
"CLEAR LEADER" SHOULD BE SET 
CLEAR LEADER" = 1 
"CLEAR LEADER" NOT SET 



THE FOLLOWING TESTS INSURE THAT DATA CAN BE WRITING ONTO AND READ FROM THE TAPE 



TEST "WRITE" 377 & "READ" 377 & 



*TEST 32 
TST32 



170764 
170676 

170752 



SCOPE 
MOV 
MOV 
MOV 
RESET 



#10. , 8TIMES ; ;DO 10. ITERATIONS 

#3$,$LPADR ; ;SET SCOPE LOOP ADDRESS 

#TST33,SESCAPE ; ; ESCAPE TO TEST 33 ON ERROR 



TA1 1 BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB-C 



-TABC.NEW 


T32 


TEST * 


1803 


010220 


010314 




1804 


010222 


112714 


000017 


1805 


010226 


104412 




1806 


010230 


112714 


000003 


1807 


010234 


104413 




1808 


010236 


1 12715 


000377 


1809 


010242 


10441 3 




1810 


010244 


1 12715 


000000 


1811 


010250 


10441 3 




1812 


010252 


052714 


000020 


1813 


010256 


104412 




1814 


010260 


1 12714 


00001 1 


1815 


010264 


104412 




1816 


010266 


112714 


000005 


1817 


010272 


104413 




1818 


010274 


011501 




1819 


010276 


012700 


000377 


1820 


010302 


020100 




1821 


010304 


001401 




1822 


010306 


104005 




1823 


010310 


104413 




1824 


010312 


005000 




1825 


010314 


01 1501 




1826 


010316 


001401 




1827 


010320 


104005 




1828 


010322 


052714 


000020 


1829 


010326 


104412 




1830 








1831 








1832 








1833 


010330 


000004 




1834 


010332 


012767 


000012 


1835 


010340 


012767 


010442 


1836 


010346 


012767 


010516 


1837 


010354 


000005 




1838 


010356 


010314 




1839 


010360 


112714 


000017 


1840 


010364 


104412 




1841 


010366 


112714 


000001 


1842 


010372 


104412 




1843 


010374 


012700 


000377 


1844 


010400 


112714 


000003 


1845 


010404 


104413 




1846 


010406 


010015 




1847 


010410 


104413 




1848 


010412 


011501 




1849 


010414 


020001 




1850 


010416 


001401 




1851 


010420 


104005 




1852 


010422 


005300 




1853 


010424 


002370 




1854 


010426 


052714 


000020 


1855 


010432 


104412 




1856 


010434 


005714 




1857 


010436 


100001 




1858 


010440 


104001 





"READ" 377 & 
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MOV DRIVE, 3TACS 


; SELECT DRIVE 


MOVB # REWIND ! GO , 9TACS 


;GO TO "CLEAR LEADER" 


WAITREADY 


; WAIT ON "READY" 


MOVB #WRITEJGO,eTACS 


; WRITE DATA 


WAITXFER 


; WAIT ON "XFER REQ" 


MOVB #377, 9TADB 


; 1ST BYTE 


WAITXFER 


;WAIT ON "XFER REQ" 


MOVB #0, iTADB 


;2ND BYTE 


WAITXFER 


JWAIT ON "XFER REQ" 


BIS #ILBS,PTACS 


; WRITE "CRC" 


WAITREADY 


;WAIT ON "READY" 


MOVB gBSBGl GO, 9TACS 


; BACK OVER THE DATA 


WAITREADY 


', WAIT ON "READY" 


MOVB # READ 1 GO, PTACS 


; START A "READ" 


WAITXFER 


;WAIT ON "XFER REQ" 


MOV 0TADB , Rl 


:PUT THIS BYTE IN Rl 


MOV #377, R0 


jPUT WHAT IT SHOULD BE 


CMP R1,R0 


;DID DATA READ GOOD? 


BEQ 1$ 


! BR IF YES 


ERROR 5 


; DATA WASN'T = 377 


WAITXFER 


; WAIT ON "XFER" 


CLR R0 




MOV PTADB, Rl 


; READ 


BEO 2$ 


i BR IF DATA s 000 


ERROR 5 


; DATA WASN'T s 000 


BIS IILBS,?TACS 


f SHUT DOWN 


WAITREADY 


;WAIT ON "READY" 



170626 
170540 
170614 



2SI 



•♦TEST 33 TEST "WRITE £- READ" A COUNT PATTERN 

TST33: 



SCOPE 










MOV 


#10 g , 


STIMES 


; ;DO 


10, ITERATIONS 


MOV 


&3$,$LPADR 


; J SET 


SCOPE LOOP ADDRESS 


MOV 


#TST34,$ESCAPE 


If ESCAPE TO TEST 34 ON ERROR 


RESET 








;CLEAR ALL 


MOV 


DRIVE 


,9TACS 




; SELECT DRIVE 


MOVB 


#REWINDJGO,9TACS 




;GO TO "BOT" 


WAITREADY 






;WAIT ON "READY" TO SET 


MOVB 


#WFGlGO,9TACS 




; GET ON OXIDE 


WAITREADY 






; WAIT ON "READY" TO SET 


MOV 


#377, 


R0 




:FIRST DATA PATTERN AND COUNTER 


MOVB 


#WRITE1G0,»TACS 




; START A WRITE 


WAITXFER 






; WAIT ON "XFER REQ" TO SET 


MOV 


R0,?TADB 




; WRITE A BYTE ON TAPE 


WAITXFER 






XWAIT ON "XFER REQ" TO SET 


MOV 


9TADB 


,R1 




1 GET BACK THE LAST BYTE WRITTEN 


CMP 


R0,R1 






I AND CHECK IT 


BEQ 


2$ 






sBR IF IT LOOKS GOOD 


ERROR 


5 






; THE DATA IN TADB WAS BAD 


DEC 


R0 






; NEXT PATTERN 


BGE 


iS 






;BR IF MORE TO DO 


BIS 


IILBS 


,?TACS 




; WRITE THE "CRC" 


WAITREADY 






JWAIT ON "READY" TO SET 


TST 


#TACS 






1 ANY ERRORS OCCUR? 


BPL 


3$ 






; BR IF NO 


ERROR 


i 






; ERROR OCCURRED DURING WRITE 
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1859 


010442 


112714 


a 0)a 01 1 1 

fOvlyiO & l 




010446 






1 86? 


01 0450 


112714 


000005 


1862 


010454 


01 2700 


000377 














011501 






at a ac a 


£lOCICtCI 1 




1866 


a 1 Oi A A A 


aci 1 Aa 1 




1867 


010470 


1 d d i?l C4 ^ 

1 10 H 1010 3 




1868 




1010 J Jwjtl 






10 1 10 ** / <s 






1870 


010476 


104413 




1871 




0527 1 4 


000020 


187 2 


1 0504 


104 4 1 2 






a 1 acac. 

10 1 V J 10V 


032714 


1 40000 


1 Bid 




00 1401 




*? 


1 05 1 4 


1 0400 1 












1877 








1878 
















1880 
















1 OR i 








\ and 


1 05 1 6 






1 Hfll 


a i aeoa 

v I v j £\0 




lOlOIOlO i c. 






hi mi 


10 l XJ J O £ 


1 OflA 


010534 


012767 


al 0I77A 
10 1 10 * / 


: 

1 RfiB 

J QQQ 


010542 

10 1 V J 


10)010 viO j 
S1 1 CI 1 1 A 






K7 I 10 3 t O 




VJXJY/XJ 1 / 


1 flQfl 




104412 




i aoi 


010554 


iadli \ 






C1 1 






1 OQl 




112714 


a (A a a (A 1 


1 OQi 


W 1 I0DOO 




xjXJxJvvO 










1 QQt 


Oil M*7d 


vvO J 10 10 




: 


010576 


002 40 3 




: 


v 1 i9Oi0ty 


1 12715 


000 3 7 7 






0007 7 2 




1 QWGS 


M 1 01 Ai/l& 
SO 1 iOOlOO 




000020 






104412 




1 Q»? 


10 1 10 O 1 *i 




XJVJXJXl X i 


i oaf 


01 1 a^oix 

171 


104412 




l QttC 






000005 




010626 


01 2700 


C1MM0K/I 1 
10 10101010 j 


1 906 




10441 3 




1 907 


010634 


005 300 




1908 


010636 


002402 




1909 


010640 


105715 




1910 


010642 


000773 




1911 


010644 


052714 


000020 


1912 


010650 


104412 




1913 


010652 


005714 




1914 


010654 


100401 





MOVB 


SBSBGJGO, PTACS 


. GO TO BEGINNING OF BLOCK 


WAITPEADY 


fWAIT ON " READY " TO SET 


MOVB 


# READ 1 GO , PTACS 


; START A "READ" 


MOV 


#377, R0 


•FIRST DATA PATTERN AND COUNTER 


WAITXFER 


•WAIT ON "XFER REQ" TO SET 


MOV 


PTADB, Rl 


•READ A BYTE FROM TAPE 


CMP 


R0,R1 


•IS IT VALID? 


BEG 


5S 


fBR IF YES 


ERROR 


5 


•BAD DATA READ FROM TAPE 


DEC 


R0 


; NEXT PATTERN 


BGE 


4S 


; BR IF MORE TO READ 


WAITXFER 


? WAIT ON "XFER REQ" TO SET 


BIS 


•ILBS, PTACS 


;SHUT DOWN THE "READ" OPERATION 


WAITREADY 


;WAIT ON "READY" TO SET 


BIT 


# ERROR 5 CRCERR, PTACS 


; ERROR AND CRCERR SHOULD BE = 


BEQ 


TST34 ; ; BR 


IF THEY ARE 


ERROR 




; (ERROR < CRCERR) = 1 



J////////////////////////////////////////////////////////////////////// 

; THE FOLLOWING TESTS ARE USED TO INSURE THAT THE "CRC" CIRCUITRY FUNCTIONS PROPERLY 
; ////////////////////////////////////////////////////////////////////// 



;*TEST 34 TEST "ERROR" WITH "CRCERR" = 1 

TST34 : 



170440 
170352 
170426 











MOV *10.,$TIMES ; 


}D0 


10, 


ITERATIONS 


MOV t20S,SLPADR J 


jSET 


SCOPE LOOP ADDRESS 


MOV ITST35, SESCAPE ; 


; ESCAPE 


TO TEST 35 ON ERROR 


RESET 








MOV DRIVE, (PTACS 






SELECT DRIVE 


MOVB #REWIND!GO, PTACS 






GO TO CLEAR LEADER 


WAITREADY 






WAIT ON "READY" 


MOVB #WFG'GO, PTACS 






GET OFF OF CLEAR LEADER 


WAITREADY 






WAIT FOR READY 


MOVB # WRITE! GO, PTACS 






START A WRITE 


MOV 86, R0 






SETUP FOR 6 BYTES 


WAITXFER 






WAIT ON "XFER REQ" 


DEC R0 






DOWN COUNT 


BLT 2$ 






DONE? 


MOVB #377, PTADB 






NO"- WRITE ON TAPE 


BR 1$ 






LOOP 


BIS * I LBS, PTACS 






WRITE "CRC" 


WAITREADY 






WAIT ON "READY" 


MOVB #BSBG! GO, PTACS 






BACK OVER THE DATA BLOCK 


WAITREADY 






WAIT ON "READY" 


MOVB # READ 1 GO, PTACS 






START A "READ" 


MOV S 3 , R0 






DO 3 BYTES 


WAITXFER 






WAIT FOR "XFER REQ" 


DEC R0 






COUNT # OF BYTES 


BLT 4$ 








TSTB PTADB 






CLEAR "XFER REQ" 


BR 3$ 








BIS * ILBS, PTACS 






DO "ILBS" 


WAITREADY 






WAIT ON "READY" 


TST PTACS 






CHECK FOR "ERROR" 


BMI 5$ 






BR IF "ERROR" 
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TEST "ERROR" WITH "CRCERR" = 



ERROR 
BIT 
BNE 
ERROR 



MAC Yl 1 27(732) 1 l-JUN-76 13:26 PAGE 40 



TABC .NEW 


T34 


1915 


010656 


104001 


1916 


010660 


032714 


1917 


010664 


001001 


1918 


01066b 


1 04001 


1919 






1920 


010670 


1 12714 


1921 


010674 


005714 


1922 


010676 


100001 


1923 


010700 


104001 


1924 


010702 


112714 


1925 


010706 


005714 


1926 


010710 


100401 


1927 


010712 


104001 


1928 


010714 


112714 


1929 


010720 


005714 


1930 


010722 


100001 


1931 


010724 


104001 


1932 


010726 


112714 


1933 


010732 


005714 


1934 


010734 


100001 


1935 


010736 


104001 


1936 


010740 


112714 


1937 


010744 


005714 


1938 


010746 


100001 


1939 


010750 


104001 


1940 


010752 


112714 


1941 


010756 


005714 


1942 


010760 


100001 


1943 


010762 


104001 


1944 


010764 


112714 


1945 


010770 


005714 


1946 


010772 


100001 


1947 


010774 


104001 


1948 






1949 






1950 






1951 


010776 


000004 


1952 


01 1000 


012767 


1953 


01 1006 


012767 


1954 


011014 


012767 


1955 


011022 


000005 


1956 


011024 


010314 


1957 


0i 1026 


112714 


1958 


011032 


104412 


1959 


011034 


112714 


i960 


011040 


104413 


1961 


011042 


105015 


1962 


011044 


104413 


1963 


011046 


105015 


1964 


011050 


104413 


1965 


011052 


052714 


1966 


011056 


104412 


1967 


011060 


112714 


1968 


011064 


104412 


1969 


011066 


112714 


1970 


011072 


104413 



#CRCERR, PTACS 
6$ 
1 



; THE FOLLOWING CODE IS USED TO CHECK THE 



6$: 



000005 
011034 



170160 
170072 
170146 



MOVB 

TST 

BPL 

ERROR 

MOVB 

TST 

BMI 

ERROR 

MOVB 

TST 

BPL 

ERROR 

MOVB 

TST 

BPL 

ERROR 

MOVB 

TST 

BPL 

ERROR 

MOVB 

TST 

BPL 

ERROR 

MOVB 

TST 

BPL 

ERROR 



"ERROR" BIT NOT SET 
CHECK FOR "CRC" ERROR 
BR IF "CRC" ERROR 

NO "CRC" ERROR 
ROM 



;»TEST 35 



# WFG, PTACS 




;CHECK "ERROR" WITH 


"WFG" 


PTACS 






•SAMPLE THE "ERROR" 


BIT 


7$ 






; BR IF "ERROR" = 




1 






; "ERROR" NOT = 




#WRITE 


, PTACS 




jCHECK "ERROR" WITH 


" WRITE" 


PTACS 






; SAMPLE THE "ERROR" 


b :t 


8$ 






; BR IF "ERROR" = 1 




1 






; "ERROR" NOT s 1 




#BSFG, 


PTACS 




;CHECK "ERROR" WITH 


"BSFG" 


PTACS 






; SAMPLE THE "ERROR" 


BIT 


9$ 






; BR IF "ERROR" = 




1 






; "ERROR" NOT s 




#BSBG, 


PTACS 




jCHECK "ERROR" WITH 


"aSBG" 


PTACS 






; SAMPLE THE "ERROR" 


BIT 


10$ 






jsBR IF "ERROR" s 
; "ERROR" NOT = 




#SFFG, 


PTACS 




jCHECK "ERROR" WITH 


"SFFG" 


PTACS 






; SAMPLE THE "ERROR" 


BIT 


11$ 






j BR IF "ERROR" s 




1 






; "ERROR" NOT s 




#SFBG, 


PTACS 




jCHECK "ERROR" WITH 


* SFBG" 


PTACS 






; SAMPLE THE "ERROR" 


BIT 


12$ 






; BR IF " ERROR" = 




i 






; "ERROR" NOT = 




•REWIND, PTACS 




•CHECK "ERROR" WITH 


* REWIND" 


PTACS 






; SAMPLE THE "ERROR" 


BIT 


TST35 




; ? BR 


IF "ERROR" = 




1 






; "ERROR" NOT s 




TEST K 


DATA OF i 


5 GIVES 


CRC OF 0" 





SCOPE 








MOV 


#5,$TIMES 


; jDO 5 


ITERATIONS 


MOV 


«6$,$LPADR 


f ;SET 


SCOPE LOOP ADDRESS 


MOV 


#TST36,$ESCAPE 


??ESCAPE TO TEST 36 ON ERROR 


RESET 








MOV 


DRIVE, PTACS 




; SELECT DRIVE 


MOVB 


IPEWINDiGO, PTACS 




;G0 TO "CLEAR LEADER 


WAITREADY 




;WAIT ON "READY" 


MOVB 


#WRITEJ GO, PTACS 




;WRITE THE DATA 


WAITXFER 






•WAIT ON "XFER REQ" 


CLRB 


PTADB 




;1ST BYTE s 


WAITXFER 




; WAIT ON "XFER REQ" 


CLRB 


§TADB 




;2ND BYTE = 


WAITXFER 




•WAIT ON "XFER REQ" 


BIS 


#ILBS, PTACS 




; WRITE "CRC" 


WAITREADY 




;WAIT ON "READY" 


MOVB 


SBSBG1G0, PTACS 




; BACK OVER THE DATA 


WAITREADY 




;WAIT ON "READY" 


MOVB 


# READ! GO, PTACS 




; START A "READ" 


WAITXFER 




jWAIT ON "XFER REQ" 
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SEQ 0055 



1971 


01 1074 


005000 








CLP 


R0 




JSET R0 TO WHAT THE DATA SHOULD 


1972 


01 1076 


01 1501 








MOV 


8TADB 


, Ri 




READ DATA BYTE 


1973 


01 1 100 


001 401 








BEQ 


IS 






BR IF DATA = 


1974 


01 1 102 


104005 








ERROR 


5 






1ST BYTE NOT = 


1975 


011104 


1 04413 






IS : 


WAITXFER 






WAIT ON " XFER REQ" 


1976 


01 1 106 


01 1501 








MOV 


§TADB 


,R1 




READ SECOND DATA BYTE 


1 977 


011110 


001 401 








BEQ 


2S 






BR IF 2ND BYTE s 


1978 


011112 


1 04005 








ERROR 


5 






DATA WASN'T = 


1979 


011114 


10441 3 






2S 5 


WAITXFER 






WAIT ON " XFER REQ" 


1980 


011116 


01 1501 








MOV 


STADB 


,R1 




READ FIRST CPC BYTE 


198 1 


01 1 1 20 


001 401 








BEQ 


3$ 






BR IF 1ST CRC BYTE = 


1982 


011122 


1 04005 








ERROR 


5 






1ST BYTE OF CRC BAD 


198 3 


011124 


104413 






3S : 


WAITXFER 






WAIT ON "XFER REQ" 


198 4 


011126 


01 1501 








MOV 


8TADB 


, Rl 




READ SECOND CRC BYTE 


1985 


011130 


00 1401 








BEQ 


4$ 






BR IF 2ND CRC BYTE s 


1986 


011132 


1 04005 








ERROR 


5 






2ND BYTE OF CRC BAD 


1987 


01113 4 


0527 14 


000020 




4$ 1 


BIS 


#ILBS 


, BTACS 






1988 


011140 


10441 2 








WAITREADY 






WAIT FOR "READY" 




01 1 142 


0057 1 4 








TST 


BTACS 






"ERROR" SHOULD BE s 1 


1 990 


011144 


100401 








BMI 


5$ 






BR IF "ERROR" IS = 1 


1991 


01 1 1 46 


1 04001 








ERROR 


1 








199 2 


011 150 


032714 


040000 




5$: 


BIT 


»CRCERR, gTACS 




IS THE ERROR A "CRC" ERROR? 


199 3 


011154 


00 1 00 1 








BNE 


TST36 




•GO TO NEXT TEST IF YES 


1994 


0111 56 


1 0400 1 








ERROR 


1 






THE ERROR WASN'T A "CRC" ERROR 


1995 










;;♦♦«»***♦*******##*♦*****#*####«*##*##**#♦*♦****♦#**#**»*#*•##*# 


1996 










;*TEST 


36 


TEST 


"CRC" CIRCUIT USING 


A COUNT PATTERN 


1997 






















1998 


011160 


000004 






TST 36 : 


SCOPE 










1999 


011162 


01 2767 


00001 2 


167776 




MOV 


#10., 


STIMES 


;DO 10. 


ITERATIONS 


2000 


011170 


012767 


011272 


167710 




MOV 


»3S,SLPADR 


;SET SCOPE LOOP ADDRESS 


200 1 


011176 


01 27b7 


011412 


167764 




MOV 


#TST37,$ESCAPE 


f ESCAPE 


TO TEST 37 ON ERROR 


2002 


011 204 


000005 








RESET 








Clear all 




01 1206 


010 314 








MOV 


DRIVE 


, 0TACS 




SELECT DRIVE 


2004 


011210 


112714 


00001 7 






MOVB 


#REWINDJ GO, 0TACS 




GO TO "BOX" 


2005 


01 1214 


104412 








WAITREADY 






WAIT ON "READY" TO SET 


2006 


011216 


112714 


00000 1 






MOVB 


#WFGi GO, 8TACS 




GET ON OXIDE 


2007 


01 1222 


104412 








WAITREADY 






WAIT ON "READY" TO SET 


2008 


01 1224 


012700 


00037 7 






MOV 


#377, 


R0 




FIRST DATA PATTERN AND COUNTER 


2009 


0112 30 


112714 


000003 






MOVB 


IWRITEJGO, (dTACS 




START A WRITE 


2010 


011234 


10441 3 








WAITXFER 






WAIT ON "XFER REQ" TO SET 


2011 


01 1236 


010015 






IS: 


MOV 


R0 , PTADB 




WRITE A BYTE ON TAPE 


2012 


011240 


104413 








wAITXFEP 






WAIT ON "XFER REQ" TO SET 


2013 


011242 


01 1501 








MOV 


8TADB 


,P1 




GET BACK THE LAST BYTE WRITTEN 


201 4 


01 1244 


02000 1 








CMP 


R0,R1 






AND CHECK IT 


2015 


01 1246 


001 401 








BEQ 


2$ 






BR IF IT LOOKS GOOD 


2016 


011250 


1 04005 








ERROR 


5 






THE DATA IN TADB WAS BAD 


2017 


01 125 2 


005 300 






2$: 


DEC 


R0 






NEXT PATTERN 


2018 


011254 


002 370 








BGE 


IS 






BR IF MORE TO DO 


2019 


011 256 


0527 1 4 


000020 






BIS 


#ILB5 


, §TACS 




WRITE THE "CRC" 


2020 


01 1262 


104412 








WAITREADY 






WAIT ON "READY" TO SET 


2021 


01 1264 


005714 








TST 


9TACS 






ANY ERRORS OCCUR? 


2022 


01 1266 


100001 








BPL 


3S 






BR IF NO 


2023 


011270 


104001 








ERROR 


1 






ERROR OCCURRED DURING WRITE 


2024 


01 1272 


1 12714 


00001 t 




3$: 


MOVB 


#BSBGlGO,§TACS 




BACK OVER THE DATA BLOCK 


2025 


0t 1276 


104412 








WAITREADY 






WAIT ON "READY" TO SET 


2026 


011 300 


112714 


000005 






MOVB 


# READ 


1GO, 0TACS 




START A "READ" 
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2027 


01 1 304 


012700 


000377 




MOV 


#377, R0 




;FIRST DATA PATTERN AND COUNTER 


2028 


011310 


005037 


013774 




CLR 


MCRC.WD 




; INITIALIZES THE "CPC WORD" 


2029 


011314 


004737 


013654 


4S: 


JSR 


PC,a#DO.CRC 




jCOMBINE THIS BYTE IR0] WITH THE "CRC WORD" 


2030 


01 1320 


10441 3 






WAITXFER 




jWAIT ON "XFER REQ" TO SET 


2031 


01 1322 


011501 






MOV 


8TADB, Rl 




; READ A BYTE FROM TAPE 


2032 


011 324 


020001 






CMP 


R0,R1 




; IS IT VALID? 


2033 


011 326 


001401 






BEQ 


5S 




J BR IF YES 


2034 


01 1 330 


104005 






ERROR 


5 




; BAD DATA READ FROM TAPE 


2035 


01 1332 


005300 




5$: 


DEC 


P0 




; NEXT PATTERN 


2036 


01 1 334 


002367 






BGE 


4S 




; BR IF MORE TO READ 


2037 


01 1336 


005000 






CLR 


R0 




; GET LOW BYTE OF "CRC WORD" 


2038 


01 1 340 


153700 


013774 




BISB 


g#CRC„WD,R0 






2039 


01 1344 


104413 






WAITXFER 




;WAIT ON " XFER REQ 88 TO SET 


2040 


01 1 346 


052714 


000020 




BIS 


#ILBS,0TACS 




jSHUT DOWN THE "READ" OPERATION 


2041 


011352 


01 1501 






MOV 


PTADB , R 1 




;PICK FIRST BYTE OF TU60 "CRC" 


2042 


011354 


020001 






CMP 


R0,R1 




; IS IT GOOD? 


2043 


01 1356 


001401 






BEQ 


6$ 




; BR IF YES 


2044 


01 1 360 


104005 






ERROR 


5 




;FIRST BYTE OF TU60 "CRC IS BAD 


2045 


011362 


005000 




6S: 


CLR 


R0 




; GET HIGH BYTE OF "CRC WORD" 


2046 


01 1 364 


153700 


013775 




BISB 


0#CRC .WD+1 , P0 






2047 


01 1 370 


104412 






WAITREADY 




; WAIT ON "READY" TO SET 


2048 


011 372 


011501 






MOV 


gTADB,Pl 




j READ THE 2ND BYTE OF TU60 "CRC" 


2049 


01 1 374 


020001 






CMP 


R0,R1 




; IS IT GOOD? 


2050 


P11376 


001401 






BEQ 


7$ 




; BR IF YES 


2051 


01 1400 


104005 






ERROR 


5 




; HIGH BYTE OF "CRC" IS BAD 


2052 


011402 


032714 


1 40000 


7$: 


BIT 


*£RR0R1CRCERR 


PTACS 


; ERROR AND CRCERR SHOULD BE a 


2053 


01 1406 


001401 






BEQ 


TST37 


; ; BR 


IF THEY ARE 


2054 


011410 


104001 






ERROR 


1 




; (ERROR \ CRCERR) a 1 



2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 



THIS TEST REQUIRES BOTH DRIVES . 

FOR THE FOLLOWING DESCRIPTION DRIVE "1" IS THE DRIVE UNDER TEST 
AND DRIVE "2" IS THE OTHER DRIVE 

TEST DESCRIPTION 

1 ) REWIND DRIVE 1 

2) WAIT FOR READY TO SET 

3) START DRIVE 2 REWINDING 

4) WAIT FOR READY TO CLEAR 

5) SELECT DRIVE 1 AND CHECK THAT READY IS STILL SET 

6) SELECT DRIVE 2 AND CHECK THAT READY IS STILL CLEAR 

• ##*##•» 

♦TEST 37 TRY TO HANG "READY" ON "REWIND" 



2071 


011412 


000004 






T5T37 


SCOPE 






2072 


01 1414 


012767 


000005 


167544 




MOV 


#5, STIMES 


; ;DO 5 ITERATIONS 


2073 


0U422 


012767 


011436 


167456 




MOV 


#1$,$LPA0R 


; j SET SCOPE LOOP ADDRESS 


2074 


011433 


012767 


011552 


167532 




MOV 


•TST40, SESCAPE 


; ;ESCAPE TO TEST 40 ON ERROR 


2075 


011436 


105737 


001225 




IS: 


TSTB 


B#DRVKEY+1 


; TESTING TWO DRIVES? 


2076 


011442 


001443 








BEQ 


TST40 


; ; BR IF NO 


2077 


01 1444 


012701 


000001 






MOV 


#1,R1 


; SET TIMER 


2078 


01 1450 


010302 








MOV 


DRIVE, R2 


;SET R2 TO THE OTHER 


2079 


01 1452 


062702 


000400 






ADD 


IUNIT,R2 




2080 


011456 


042702 


177377 






BIC 


#"CUNIT,R2 




2081 


01 1462 


000005 








RESET 




; CLEAR ALL 


2082 


01 1 464 


010314 








MOV 


DRIVE, 0TACS 


; SELECT 1ST DRIVE 
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2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

213 7 

2138 



011466 
011470 

011472 
011474 

011500 
01 1502 
011504 



011506 
011512 
011514 
011516 
01 1522 
011526 
011530 
011532 
011534 
011540 
011544 
01 1546 
01 1550 



104412 
010214 
104412 
112714 

006301 
001001 
104001 



032714 
001372 
010314 
112714 

032714 



01 1552 
01 1554 
01 1562 
011570 
011576 
011602 
01 1604 
011610 
011612 
011616 
011622 
01 1624 
01 1626 
011632 
011634 



104001 
010214 
112714 
032714 
001401 
104001 
104412 



000016 
000040 



000016 
000040 



000004 
012767 
012767 
012767 
105737 
001554 
012701 
010302 
062702 
042702 
000005 
010314 
1 12714 
104412 
112714 



000005 
011576 

0121 34 
001225 

000001 

000400 
177377 



000017 
000001 



WAITREADY 
MOV R2, PTACS 

WAITREADY 



MOVB 
ASL 
BNE 
ERROR 



BIT 
BNE 
MOV 
MOVB 
BIT 
BNE 
ERROR 
MOV 
MOVB 
BIT 
BEQ 
ERROR 



8REWINDSGO, PTACS 

Rl 

3S 

1 



*READY, PTACS 

2S 

DRIVE, PTACS 
9 REWIND/ PTACS 
SREADY, PTACS 

4$ 
1 

R2, PTACS 
#REWIND, PTACS 

#READY, PTACS 
5$ 
1 



y WAIT ON "READY" 
; SELECT 2ND DRIVE 
;WAIT ON "READY" 

; SEND 2ND DRIVE TO BOT 
•GIVE "READY" TIME TO CLEAR 

• "READY" FAILED TO CLEAR 

•NOTE: THIS ERROR OCCURRED ON THE 

;2ND DRIVE. I.E. IF TESTING DRIVE A 

•THEN DRIVE B FAILED 

•WAIT FOR "READY" TO CLEAR 

• SELECT 1ST DRIVE 
•LOAD A "REWIND" 
•CHECK "READY" 

; BP IF STILL SET 
; "READY" WAS CLEAR 
; SELECT 2ND DRIVE 
; LOAD A REWIND 
•CHECK "READY" 

• BR IF STILL CLEAR 
; "READY" WAS SET 
; WAIT ON " READY" 



1" IS THE DRIVE UNDER TEST 



167404 
167316 
167372 



WAITREADY 

THIS TEST REQUIRES BOTH DRIVES . 
FOR THE FOLLOWING DESCRIPTION DRIVE 
AND DRIVE "2" IS THE OTHER DRIVE 

TEST DESCRIPTION 

1 ) REWIND DRIVE 1 

2) WFG ON DRIVE 1 

3) START A REWIND ON DRIVE 2 

4) WHILE DRIVE 2 IS REWINDING WRITE DATA ON DRIVE 1 

5) CHECK FOR ERRORS 

6) START A REWIND ON DRIVE 2 

7) WHILE DRIVE 2 IS REWINDING READ DATA FROM DRIVE 1 

8) CHECK FOR ERRORS 

• 

»TEST 40 

TST40 ! - 

jDO 5 ITERATIONS 
•SET SCOPE LOOP ADDRESS 
•ESCAPE TO TEST 41 ON ERROR 
; TESTING TWO DRIVES? 

; BR IF NO 

• SET TIMER 

•SET R2 TO THE OTHER DRIVE 



; CLEAR ALL 
; SELECT 1ST DRIVE 
; REWIND TO BOT 
;WAIT ON "READY" 

; GET ON OXIDE 



SCOPE 




MOV 


#5,STIMES 


MOV 


#1$,SLPADR 


MOV 


*TST4l , SESCAPE 


TSTB 


SMDRVKEY+ 1 


BEO 


TST41 


MOV 


»i#Rl 


MOV 


DRIVE, R2 


ADD 


#UNIT,R2 


BIC 


#*CUNIT,R2 


RESET 




MOV 


DRIVE, PTACS 


MOVB 


SREWINDIGO, PTACS 


WAITREADY 


MOVB 


8 WFG I GO, PTACS 
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ZTABC , NEW 


T40 


TRY TO GLITCH 


THE "POWER SUPPLY" 






2139 


01 1640 


104412 






WAITREADY 


WAIT ON "READY" 


2140 


01 1642 


010214 






MOV 


R2, GTACS 


SELECT 2ND DRIVE 


2141 


01 1644 


104412 






WAITREADY 


WAIT ON "READY" 


2142 


01 1646 


112714 


00001 7 




MOVB 


# REWIND i GO, PTACS 


START A "REWIND" 


2143 


011652 


006301 




2S: 


ASL 


Rl 


GIVE "READY" TIME TO CLEAR 


2144 


01 1654 


001001 






BNE 


3$ 




2145 


01 1656 


104001 






ERROR 


1 


"READY" FAILED TO CLEAR 


2146 














NOTE: THIS ERROR OCCURRED ON THE 


2147 














2ND DRIVE. I.E. IF TESTING DRIVE A 


2148 














THEN DRIVE B FAILED 


2149 


01 1660 


032714 


000040 


3S: 


BIT 


ff READY, PTACS 


WAIT FOR "READY" TO CLEAR 


2150 


011664 


001 372 






BNE 


2$ 




2151 


01 1666 


010314 






MOV 


DRIVE, PTACS 


SELECT 1ST DRIVE 


2152 


01 1670 


112714 


000003 




MOVB 


#WRITE!GO, PTACS 


WRITE WHILE THE OTHER DRIVE IS "REWINDING 


2153 


01 1674 


104413 






WAITXFER 


WAIT ON " XFER REO" 


2154 


011676 


1 12715 


000377 




MOVB 


#377, PTAUB 


WRITE 1ST BYTE 


2155 


011702 


104413 






WAITXFER 


WAIT ON "XFER REQ" 


2156 


011704 


105015 






CLRB 


PTADB 


WRITE 2ND BYTE 


2157 


01 1706 


10441 3 






WAITXFER 


WAIT ON "XFER REQ" 


2158 


011710 


052714 


000020 




BIS 


#ILBS, PTACS 


WRITE "CRC" & SHUT DOWN 


2159 


011714 


104412 






WAITREADY 


WAIT ON "READY" 


2160 


011716 


005714 






TST 


PTACS 


ANY ERROR? 


2161 


011720 


100001 






BPL 


4$ 


BR IF NO 


2162 


011 722 


104001 






ERROR 


1 


ERROR OCCURRED DURING "WRITE" 


2163 


011724 


112714 


000011 


4S: 


MOVB 


SBSBGiGO, PTACS 


POSITION TAPE FOR "READ" 


2164 


01 1730 


104412 






WAITREADY 


WAIT ON "READY" 


2165 


01 1732 


00571 4 






TST 


PTACS 


ANY ERROR? 


2166 


01 1734 


100001 






BPL 


5$ 


BR IF NO 


2167 


01 1736 


104001 






ERROR 


1 


ERROR OCCURRED DURING "BSBG" 


2168 


01 1740 


112714 


000005 


5$! 


MOVB 


#READ J GO, PTACS 


START A "READ" 


2169 


011744 


104413 






WAITXFER 


WAIT ON "XFER REQ" 


2170 


011746 


012700 


000377 




MOV 


#377, R0 


FIRST DATA PATTERN 


2171 


011752 


01 1501 






MOV 


PTADB , Rl 


PICKUP FIST BYTE 


2172 


011754 


020001 






CMP 


R0,R1 


IS IT GOOD? 


2173 


011756 


001401 






BEO 


6$ 


BR IF NO 


2174 


01 1760 


104005 






ERROR 


5 


1ST DATA BYTE IS BAD 


2175 


011762 


104413 




6S: 


WAITXFER 


WAIT ON "XFER REQ" 


2176 


0117b4 


005000 






CLK 


R0 


2ND DATA PATTERN 


2177 


011766 


011501 






MOV 


PTADB , R 1 


PICKUP 2ND BYTE 


2178 


011770 


001401 






BEQ 


7S 


BR IF IT IS GOOD 


2179 


011772 


104005 






ERROR 


5 


2ND BYTE IS BAD 


2180 


011774 


104413 




7$: 


WAITXFER 


WAIT ON "XFER REQ" 


2181 


01 1776 


052714 


000020 




BIS 


*ILBS, PTACS 


SHUT DOWN 


2182 


012002 


104412 






WAITREADY 


WAIT ON "READY" 


2183 


012004 


005714 






TST 


PTACS 


ERROR? 


2184 


012006 


100001 






BPL 


8$ 


BR IF NO 


2185 


012010 


104001 






ERROR 


1 


ERROR OCCURRED 


2186 


012012 


1 12714 


000011 


8$ : 


MOVB 


#BSBGI GO, PTACS 


POSITION FOR NEXT "READ" 


2187 


012016 


104412 






WAITREADY 


WAIT ON "READY" 


2188 


012020 


005714 






TST 


PTACS 


ERROR? 


2189 


012022 


100001 






BPL 


9$ 


BR IF NO 


2190 


012024 


104001 






ERROR 


1 


ERROR OCCURRED DURING "BSBG 


2191 


012026 


010214 




9$i 


MOV 


R2, PTACS 


SELECT 2ND DRIVE 


2192 


012030 


104412 






WAITREADY 


WAIT ON "READY" 


2193 


012032 


112714 


000017 




MOVB 


IREWIND1GO, PTACS ; START A "REWIND" 


2194 


012036 


012701 


000001 




MOV 


*1»R1 


SET THE TIMER 
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SEQ 0059 



2195 


012042 


005201 






10$: 


INC 


Rl 




;GIVE "READY" TIME TO CLEAR 


2196 


012044 


001001 








BNE 


11$ 






2197 


012046 


104001 








ERROR 


1 




j "READY" FAILED TO CLEAR 


2198 


















j NOTE t THIS ERROR OCCURRED ON THE 


2199 


















;2ND DRIVE, I.E. IF TESTING DRIVE A 


2200 


















; THEN DRIVE B FAILED 


2201 


012050 


032714 


000040 




US! 


BIT 


IREADY, PTACS 




;WAIT FOR "READY" TO CLEAR 


2202 


012054 


001372 








BNE 


10$ 






2203 


012056 


010314 








MOV 


DRIVE, &TACS 




; SELECT 1ST DRIVE 


2204 


012060 


104412 








WAITREADY 




; WAIT ON "READY" 


2205 


012062 


112714 


000005 






MOVB 


#READ!GO,0TACS 




J "READ" WHILE OTHER DRIVE IS "REWINDING" 


2206 


012066 


104413 








WAITXFER 




; WAIT ON "XFER REO" 


2207 


012070 


012700 


000377 






MOV 


#377, R0 




;1ST DATA PATTERN 


2208 


012074 


011501 








MOV 


gTADB,Rl 




; READ 1ST BYTE 


2209 


012076 


020001 








CMP 


R0,RI 




;IS IT GOOD? 


2210 


012100 


001401 








BEQ 


12$ 




; BR IF NO 


2211 


012102 


104005 








ERROR 


5 




•1ST BYTE FAILED 


2212 


012104 


104413 






12$! 


WAITXFER 




;WAIT ON "XFER REQ" 


2213 


012106 


005000 








CLR 


R0 




f 2ND DATA PATTERN 


2214 


012110 


011501 








MOV 


PTADB,R1 




% READ 2ND BYTE 


2215 


012112 


001401 








BEQ 


13$ 




; BR IF IT IS GOOD 


2216 


012114 


104005 








ERROR 


5 




;2ND BYTE FAILED 


2217 


0121 16 


104413 






13$S 


WAITXFER 




jWAIT ON "XFER REQ" 


2218 


012120 


052714 


000020 






BIS 


f»lLBSf PTACS 




f SHUT DOWN 


2219 


012124 


104412 








WAITREADY 




;WAIT ON "READY" 


2220 


012126 


005714 








TST 


PTACS 




; ERROR? 


2221 


0121 30 


100001 








BPL 


TST41 ; 


1 BR IF 


NO 


2222 


012132 


104001 








ERROR 


1 




; ERROR OCCURRED 


2223 












2224 










;*TEST 


41 


END OF TEST CODE 






2225 










• • #***«»#»«**##*******«***«*«#»*« 




2226 


012134 


000004 






TST41 : 


SCOPE 








2227 


0121 36 


012767 


000001 


167022 




MOV 


81,$TIMES i 


;DO i 


ITERATION 


2228 


012144 


000005 








RESET 








2229 


012146 


010314 








MOV 


DRIVE, PTACS 




; SELECT DRIVE 


2230 


012150 


1 12714 


000017 






MOVB 


#REWINDJGO,$TACS 






223 1 


012154 


104412 








WAITREADY 






2232 










. SBTTL 


END OF PASS ROUTINE 






2233 
































2235 










j*INCREMENT THE 


PASS NUMBER (SPASS) 




2236 










•#TYPE 


" END PASS 






2237 










;*IF THERES A MONITOR GO TO IT 






2238 










;*IF THERE ISN'T JUMP TO START 






2239 










?*IF IT 


IS DESIRED TO HAVE A BELL 


INDICATE THE "END OF PASS" LOCATION 


2240 










; *$ENDMG CAN BE 


CHANGED TO 7 , 






2241 
2242 


012156 








SEOPS 










2243 


012156 


000004 








SCOPE 








2244 


01 2160 


005067 


166716 






CLR 


STSTNM ; 


; ZERO 


THE TEST NUMBER 


2245 


012164 


005067 


166776 






CLR 


STIMES 


JZERO 


THE NUMBER OF ITERATIONS 


2246 


012170 


005267 


166704 






INC 


SPASS ; 


7 INCREMENT THE PASS NUMBER 


2247 


012174 


042767 


100000 


166676 




BIC 


#100000, SPASS ; 


jDON'T 


ALLOW A NEG, NUMBER 


2248 


012202 


005327 








DEC 


(PC)* J 


;LOOP? 




2249 


01 2204 


000001 






SEOPCT: 


, WORD 


1 






2250 


012206 


003015 








BGT 


$DOAGN ; 


! YES 
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2251 


012210 


012737 








MOV 


(PC)+,9(PC)+ 


JJRESTOPE COUNTER 


2252 


012212 


000001 






SENDCT: 


,WORD 


1 




2253 


012214 


012204 








SEOPCT 






2254 


012216 


104401 


012251 






TYPE 


, SENDMG 


? J TYPE "END PASS" 


2255 


01 2222 


013700 


000042 




SGET42: 


MOV 


9142, R0 


; ; GET MONITOR ADDRESS 


2256 


012226 


001405 








BEQ 


SDOAGN 


f i BRANCH IF NO MONITOR 


2257 


012230 


000005 








RESET 




; jCLEAR THE WORLD 


2258 


012232 


004710 






$ ENDAD : 


JSR 


PC, (R0) 


J J GO TO MONITOR 


2259 


012234 


000240 








NOP 




; jSAVE ROOM 


2260 


012236 


000240 








NOP 




; jFOR 


2261 


012240 


000240 








NOP 




JJACTU 


2262 


012242 








SDOAGN: 








2263 


012242 


000137 








JMP 


P(PC)+ 


; ; RETURN 


2264 


012244 


002220 






SRTNAD; 


9 WORD 


START 




2265 


012246 


377 


377 


000 


SENULL: 


.BYTE 


*»1,»1,0 


; ; NULL CHARACTER STRING 


2266 


012251 


015 


042412 


042116 


SENDMG: 


.ASCIZ 


<15><12>/END 


PASS/ 


2267 


012256 


050040 


051501 


000123 
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5EQ 0061 



2268 










.SBTTL SCOPE 


HANDLER ROUTINE 




2269 
















2270 
















2271 










;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 


2272 










?*AND LOAD THE TEST NUMBER (STSTNM) INTO THE DISPLAY REG . ( D I SPLAY<7 : 0> ) 


2273 










;*AND LOAD THE ERROR FLAG (SERFLG) INTO DI SPLA Y< 1 5 : 08> 


2274 










; »THE SWITCH 


OPTIONS PROVIDED BY 


THIS ROUTINE ARE: 


2275 










;#SW14=1 


LOOP ON TEST 




2276 










;«SW1 1=1 


INHIBIT ITERATIONS 


2277 










;#SW09=1 


LOOP ON ERROR 




2278 










;*SW08=1 


LOOP ON TEST IN 


SWR<7 : 0> 


2279 










;*CALL 






2280 










j* SCOPE 


; j SCOPEs 


IOT 


2281 
















2282 


012264 








SSCOPE: 






2283 


012264 


104406 






CKSWR 




; ; TEST FOR CHANGE IN SOFT-SWR 


2284 


012266 


032777 


040000 


166644 


IS: BIT 


#BIT14, »SWR 


; 'LOOP ON PRESENT TEST? 


2285 


012274 


0011 11 






BNE 


$OVER 


; ; YES IF SW14=1 


2286 










; *#«##START OF CODE FOR THE XOR 


TESTEP#tf ### 


2287 


012276 


000416 






SXTSTR: BR 


6$ 


; • IF RUNNING ON THE "XOR" TESTER CHANGE 


2288 














; • TH IS INSTRUCTION TO A " NOP" (NOP=240) 


2289 


012300 


013746 


000004 




MOV 


S#ERRVEC,»(SP) 


• • SAVE THE CONTENTS OF THE ERROR VECTOR 


2290 


012304 


012737 


012324 


000004 


MOV 


'45$, f3#ERRVEC 


; ; SET FOR TIMEOUT 


2291 


012312 


005737 


177060 




TST 


@# 177060 


j;TIME OUT ON XOR? 


2292 


012316 


012637 


000004 




MOV 


(SP) $«ERRVEC 


; ; RESTORE THE ERROR VECTOR 


2293 


012322 


000463 






BR 


SSVLAD 


; ; GO TO THE NEXT TEST 


2294 


012324 


022626 






5$: CMP 


(SP) +, (SP)+ 


; ;CLEAR THE STACK AFTER A TIME OUT 


2295 


U12326 


012637 


000004 




MOV 


(SP)+,3#ERRVEC 


; ; RESTORE THE ERROR VECTOR 


2296 


012332 


000423 






BP 


7$ 


; > LOOP ON THE PRESENT TEST 


2297 


012334 








6S: ; ***MEND 


OF CODE FOR THE XOR 


TESTER#M## 


2298 


012334 


032777 


000400 


166576 


BIT 


#BIT08,SSWR 


• ;LOOP ON SPEC . TEST? 


2299 


012342 


001404 






BEQ 


2S 


;}BR IF NO 


2300 


012344 


127767 


166570 


166530 


CMPB 


@SWR, STSTNM 


; ;ON THE RIGHT TEST? SWR<7:0> 


2301 


012352 


001462 






BEQ 


SOVER 


; ; BR IF YES 


2302 


01 2354 


105767 


166523 




2$.* TSTB 


SERFLG 


• ;HAS AN ERROR OCCURRED? 


2303 


012360 


001421 






BEQ 


3$ 


;jBR IF NO 


2304 


012362 


126767 


166527 


166513 


CMPB 


SERMAX, SERFLG 


; • MAX. ERRORS FOR THIS TEST OCCURRED? 


2305 


012370 


101015 






BHI 


3$ 


j;BR IF NO 


2306 


012372 


032777 


001000 


166540 


BIT 


#BIT09, PSWR 


; ;LOOP ON ERROR? 


2307 


012400 


001404 






BEQ 


4$ 


;;BR IF NO 


2308 


012402 


016767 


166502 


166476 


7$: MOV 


SLPERR, SLPADR 


J j SET LOOP ADDRESS TO LAST SCOPE 


2309 


012410 


000443 






BR 


SOVER 




2310 


012412 


105067 


166465 




4SS CLRB 


SERFLG 


; ;ZERO THE ERROR FLAG 


231 1 


012416 


005067 


166544 




CLR 


STIMES 


; ; CLEAR THE NUMBER OF ITERATIONS TO MAKE 


2312 


012422 


000415 






BR 


1$ 


; ; ESCAPE TO THE NEXT TEST 


2313 


012424 


032777 


004000 


166506 


3$: BIT 


IBIT1 1 , 0SWR 


; ; INHIBIT ITERATIONS? 


2314 


012432 


001011 






BNE 


IS 


;;BR IF YES 


2315 


012434 


005767 


166440 




TST 


SPASS 


; ; IF FIRST PASS OF PROGRAM 


2316 


012440 


001406 






BEQ 


IS 


; ; INHIBIT ITERATIONS 


2317 


012442 


005267 


166436 




INC 


SICNT 


; J INCREMENT ITERATION COUNT 


2318 


012446 


026767 


166514 


166430 


CMP 


STIMES, SICNT 


JJCHECK THE NUMBER OF ITERATIONS MADE 


2319 


012454 


002021 






BGE 


SOVER 


; ;BR IF MORE ITERATION REQUIRED 


2320 


012456 


012767 


000001 


166420 


1$: MOV 


#1, SICNT 


; ; REINITIALIZE THE ITERATION COUNTER 


2321 


012464 


016767 


000044 


166474 


MOV 


SMXCNT, STIMES 


; ;SET NUMBER OF ITERATIONS TO DO 


2322 


012472 


105267 


166404 




SSVLAD; 1NCB 


STSTNM 


; ;COUNT TEST NUMBERS 


2323 


012476 


01 1667 


166404 




MOV 


(SP) , SLPADR 


; ;SAVE SCOPE LOOP ADDRESS 
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2324 


012502 


011667 


166402 




2325 


012506 


005067 


166456 




2326 


012512 


112767 


000001 


166375 


2327 


012520 


016777 


166356 


166414 


2328 


012526 


016716 


166354 




2329 


012532 


000002 






2330 


012534 


003720 







MOV 
CLR 
MOVB 
SOVER: MOV 
MOV 
RTI 

SMXCNT: 2000. 



(SP), SLPERR 
SESCAPE 
U, SERMAX 
STSTNM, PD I SPLAY 
SLPADR, (SP) 



rSAVE ERROR LOOP ADDRESS 

;CL£AR THE ESCAPE FROM ERROR ADDRESS 

; ONLY ALLOW ONE(l) ERROR ON NEXT TEST 

JDISPLAY TEST NUMBER 

; FUDGE RETURN ADDRESS 

JFIXES PS 

;MAX. NUMBER OF ITERATIONS 
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SEQ 0063 



2331 










, SBTTL 


ERROR 


HANDLER ROUTINE 




2332 


















2333 










1 ***** 








2334 










; *THIS 


ROUTINE 


WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 


2335 










j#SAVE 


THE ERROR ITEM NUMBER AND 


THE ADDRESS OF THE ERROR CALL 


2336 










; *AND 


GO TO TYPERP ON ERROR 




2337 










;#THE 


SWITCH OPTIONS PROVIDED BY 


THIS ROUTINE ARE: 


2338 










;*SW15 


= 1 


HALT ON ERROR 




2339 










; *SW13 


= 1 


INHIBIT ERROR TYPEOUTS 


2340 










;*SW10 


= 1 


BELL ON ERROR 




2341 










;«SW09 


-I 


LOOP ON ERROR 




2342 










;*CALL 








2343 










• * 


ERROR 


N ; ; ERROR= 


EMT AND NsERROR ITEM NUMBER 


2344 


















2345 


012536 








SERROR 








2346 


012536 


104406 








CKSWR 




; ; TEST FOR CHANGE IN SOFT-SWR 


2347 


012540 


011437 


001162 






MOV 


gTACS, <a#$REG0 


;SAVE THE STATUS REG „ , 


2348 


012544 


011537 


001 164 






MOV 


(STADB , P# SREGl 


JSAVE THE DATA BUFFER 


2349 


012550 


010037 


001124 






MOV 


R0, §#SGDDAT 


;R0 WILL CONTAIN THE GOOD DATA 


2350 


012554 


010137 


001126 






MOV 


Rl , fMSBDDAT 


; Rl WILL CONTAIN THE BAD DATA 


2351 


012560 


105267 


166317 




7S: 


INCB 


SERFLG 


; ;SET THE ERROR FLAG 


2352 


012564 


001775 








BEQ 


7$ 


; ; DON'T LET THE FLAG GO TO ZERO 


2353 


012566 


016777 


166310 


166346 




MOV 


STSTNM, PDISPLAY 


; {DISPLAY TEST NUMBER AND ERROR FLAG 


2 35 4 


012574 


032777 


002000 


166336 




BIT 


#BIT10,(aSWF 


; ; BELL ON ERROR? 


2355 


012602 


001402 








BEQ 


1$ 


; ;NO - SKIP 


2 356 


012604 


104401 


001172 






TYPE 


, SBELL 


; ; RING BELL 


2357 


012610 


005267 


166276 




IS! 


INC 


SERTTL 


; jCOUNT THE NUMBER OF ERRORS 


2358 


01261 4 


011667 


166276 






MOV 


(SP),$ERRPC 


; ; GET ADDRESS OF ERROR INSTRUCTION 


2359 


012620 


162767 


000002 


166270 




SUB 


#2,$ERRPC 




23b0 


012626 


1 17767 


166264 


166260 




MOVB 


PSERRPC, SITEMB 


; ;STRIP AND SAVE THE ERROR ITEM CODE 


2361 


012634 


032777 


020000 


166276 




BIT 


#BIT13,(aSWR 


; ;SKIP TYPEOUT IF SET 


2362 


01 2642 


001004 








BNE 


20$ 


; ; SKIP TYPEOUTS 


2363 


012644 


004767 


000060 






JSR 


PC , T YPEFR 


; ;GO TO USER ERROR ROUTINE 


2364 


012653 


104401 


001 177 






TYPE 


, $C RLF 




2365 


012654 








20$: 








2366 


012654 


005777 


166260 




2$; 


TST 


§SWR 


; ; H ALT ON ERROR 


2367 


012660 


100002 








BPL 


3$ 


• ;SKIP IF CONTINUE 


2368 


012662 


300000 








HALT 




j ; HALT ON ERROR! 


2369 


012664 


104406 








CKSWR 




; ; TEST FOR CHANGE IN SOFT-SWR 


2370 


012666 


032777 


001000 


166244 


3$; 


BIT 


#bIT09,P5WR 


; ; LOOP ON ERROR SWITCH SET? 


2371 


012674 


001 402 








BEQ 


4$ 


;;8R IF NO 


2372 


012676 


016716 


166206 






MOV 


SLPERR, { SP) 


; ; FUDGE RETURN FOR LOOPING 


2373 


012702 


005767 


166262 




4$; 


TST 


SESCAPE 


; ;CHECK FOR AN ESCAPE ADDRESS 


2374 


01 2706 


001402 








BEG 


5$ 


; ;BR IF NONE 


2375 


012710 


016716 


166254 






MOV 


SESCAPE, (SP) 


; • FUDGE RETURN ADDRESS FOR ESCAPE 


2376 


012714 








5$ : 








2377 


012714 


022737 


012232 


000042 




CMP 


*$ENDAD, ?*42 


; ;ACT-1 1 AUTO-ACCEPT? 


2378 


012722 


001001 








BNE 


6$ 


; ; BRANCH IF NO 


2379 


012724 


000000 








HALT 




; J yes 


2380 


012726 








6SJ 








238 1 


012726 


000002 








RTI 




; ; RETURN 


2382 
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238 3 
2384 
2385 



;THIS ROUTINE WILL TYPEOUT THE ERROR MESSAGES 



2386 


012730 


104401 


001 1 77 


TYPERR: 


TYPE 


,$CRLF 




; TYPE A CARRIAGE RETURN & LINE FEED 


2387 


012734 


010046 






MOV 


R0,-(SP) 




;SAVE R0 


2388 


012736 


1 13700 


0011 14 




MOVB 


e*$ITEMB,R0 




jPICKUP THE ITEM INDEX 


2389 


012742 


005300 






DEC 


R0 




; ADJUST THE INDEX 


2390 


012744 


006300 






ASL 


R0 




;SO IT WILL WORK FOR 


2391 


012746 


006300 






ASL 


R0 




; THE ERROR TABLE 


2392 


012750 


006 300 






ASL 


R0 






2393 


01 2752 


062700 


001236 




ADD 


1 $ ERRTB # R0 




; FORM THE TABLE POINTER 


2394 


012756 


012067 


000002 




MOV 


(R0)+, 1$ 




jPICKUP "ERROR MESSAGE" POINTER 


2395 


012762 


104401 






TYPE 






; TYPE "ERROR MESSAGE" 


2396 


012764 


000000 




1$: 









; "ERROR MESSAGE POINTER" GOES HERE 


2397 


012766 


104401 


001177 




TYPE 


,$CRLF 






2398 


012772 


012067 


000004 




MOV 


(R0)+,2$ 




; PICKUP "DATA HEADER" POINTER 


2399 


012776 


001404 






BEQ 


3$ 




; IF "0" DON'T TYPE 


2400 


01 3000 


104401 






TYPE 






; TYPE "DATA HEADER 


2401 


01 3002 


000000 




2$: 









; "DATA HEADER" POINTER GOES HERE 


2402 


01 3004 


104401 


001 177 




TYPE 


,$CRLF 






2403 


013010 


012000 




3$: 


MOV 


(P0)+,R0 




jPICKUP "DATA POINTER" 


2404 


01 3012 


001004 






BNE 


5$ 




; IF THERE IS DATA TO TYPE GO DO IT 


2405 


01 3014 


012600 




4$: 


MOV 


(SP)+,R0 




; RESTORE R0 


2406 


01 3016 


104401 


001 177 




TYPE 


,$CRLF 




• TYPE A CARRAGE RETURN&LINE FEED 


2407 


013022 


000207 






RTS 


PC 




; RETURN 


2408 


013024 






5$! 










2409 


013024 


01 3046 






MOV 


0(R0)+,-(SP) 


; ;SAVE 


P(R0)+ FOR TYPEOUT 


2410 














; j TYPE 


DATA 


2411 


013026 


104402 






TYPOC 




; ;GO TYPE--OCTAL ASC I I ( ALL DIGITS) 


2412 


013030 


005710 






TST 


(R0) 




.•TERMINATOR? 


2413 


013032 


001770 






BEQ 


4$ 




;BB IF YES 


2414 


013034 


104401 


013042 




TYPE 


,6$ 




; TYPE 2 SPACES 


2415 


013040 


000771 






BP 


5$ 




;LOOP 


2416 


013042 


020040 


000 


6$: 


.ASCIZ 


/ / 




;ASCII STRING OF 2 SPACES 


2417 




013046 






„ EVEN 
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2418 


















2419 










; ROUTINE TO WAIT ON THE READY BIT 




2420 


















2421 


013046 








WAIT, ON. READY: 






2422 


013046 


005067 


000044 






CLR 


WAIT2 


; SETUP MAX, TIME TO WAIT ON "READY" 


2423 


013052 


016767 


000072 


000044 




MOV 


MAXCNT, HGHTIM 




2424 


013060 


012637 


001202 






MOV 


(SP) +, 3#SAVPC 


; GET THE PC OF THE WAITREADY INSTRUCTION 


2425 


013064 


162737 


000002 


001202 




SUB 


*2,e#SAVPC 




2426 


01 3072 


012637 


001204 






MOV 


(SP)+,@#SAVPS 


; SAVE THE PS 


2427 


013076 


032714 


000040 




WAIT1 : 


BIT 


# READY, 3TACS 


;READY=1? 


2428 


013102 


001013 








BNE 


WAIT3 


;GO ON IF YES 


2429 


013104 


105714 








TSTB 


@TACS 


•CHECK TRANSFER REQUEST 


2430 


013106 


100002 








BPL 


WAIT4 




2431 


013110 


104004 








ERROR 


4 


• "TRANSFER REQUEST" SET WHILE WAITING ON "READY* 


2432 


013112 


000407 








BR 


WAIT3 




2433 


013114 


005227 






WAIT4: 


INC 


(PC) + 


•COUNT FAST COUNTER 


2434 


01 3116 


000000 






WAIT2: 









2435 


013120 


001 366 








BNE 


WA1T1 


; GO CHECK "READY" AGAIN 


2436 


013122 


005327 








DEC 


(PCX- 


; COUNT LOOP COUNTER 


2437 


013124 


000000 






HGHTIM ; 









2438 


013126 


003363 








BGT 


WAIT! 


;GO LOOP AGAIN 


2439 


01 3130 


104002 








ERROR 


2 


; "READY" FAILED TO SET 


2440 


013132 


013746 


001204 




WAIT3: 


MOV 


P*SAVPS,-(SP) 


• GET THE STATUS BACK 


2441 


0131 36 


013746 


001202 






MOV 


e*sAvPC,-(sP) 


; GET THE PC 


2442 


0131 42 


062716 


000002 






ADD 


#2, (SP) 




2443 


013146 


000002 








RTI 






2444 


013150 


000000 






MAXCNT: 









2445 


















2446 


















2447 










•ROUTINE TO WAIT ON TRANSFER REQUEST 




2448 


















2449 


013152 








WAIT. FOR.XFER. REQ: 




2450 


013152 


005067 


000044 






CLP 


2$ 


;SETUP WASTE TIME LOOP 


245i 


01 3156 


013767 


013150 


000044 




MOV 


PKMAXCNT, 3$ 




2452 


013164 


012637 


001202 






MOV 


(SP)+, 0SSAVPC 


; GET THE PC OF THE WAITXFER INSTRUCTION 


2453 


013170 


162737 


000002 


001202 




SUB 


#2,£#SAVPC 




2454 


013176 


012637 


001204 






MOV 


(sp)*,e#sAvps 


•SAVE THE PS 


2455 


01 3202 


105714 






IS: 


TSTB 


9TACS 


•CHECK XFER REQ 


2456 


013204 


100414 








BMI 


4$ 


; EXIT IF SET 


2457 


01 3206 


032714 


000040 






BIT 


8 READY, STACS 


; LOOK AT READY 


2458 


013212 


001402 








BEQ 


5$ 


; BR IF "READY" ISN'T SET 


2459 


013214 


104004 








ERROR 


4 


; "READY" SET WHILE WAITING FOR "XFER REQ" 


2460 


01 3216 


000407 








BR 


4$ 




2461 


013220 


005227 






5$ 5 


INC 


(PCX- 


;COUNT 


2462 


013222 


000000 






2$: 









2463 


013224 


001 366 








BNE 


IS 


; BR IF MORE TO DO 


2464 


01 3226 


005327 








DEC 


(PCX 




2465 


013230 


000000 






3$: 









24b6 


013232 


003363 








BGT 


1$ 




2467 


013234 


104003 








ERROR 


3 


; "TRANSFER REQUEST" FAILED TO SET 


2468 


013236 


013746 


001204 




4$: 


MOV 


P#SAVPS,-(SP) 


; GET THE STATUS BACK 


2469 


013242 


013746 


001202 






MOV 


MSAVPC-(SP) 


; GET THE PC 


2470 


013246 


062716 


000002 






ADD 


#2 » ( SP) 




247 1 


013252 


000002 








RTI 




•GO BACK 
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2472 
247 3 



2474 








» SBTTL 




ROUTINE TO ASK 


THE OPERATOR WHAT DRIVE(S) TO TEST 


2475 
















2476 








; CALL 








2477 










JSR 


PC , ^ # ASKDRV 




2478 










RETURN 




; NOTE : R0 AND Rl ARE DESTROYED 


2479 
















2480 


01 3254 


104401 


016744 


ASKDRV: 


TYPE 


, MSGDR V 


;<CRLF>"DRIVE(S)? " 


2481 


01 3260 


005067 


165740 




CLR 


DRVKEY 




2482 


01 3264 


104410 






RDLIN 




;GO GET A DRIVE 


248 3 


013266 


012600 






MOV 


(SPX,R0 


JSETUP TO CHECK FOR VALID 


2484 


01 3270 


105710 






TSTB 


@R0 


;WAS A DRIVE SELECTED? 


2485 


013272 


001425 






BEQ 


NOTLGL 


; BR IF NO 


2486 


01 3274 


012701 


001224 




MOV 


(tDRVKEY, Rl 




2487 


013300 


122710 


000101 


LOOP: 


CMPB 


* 'A, 9R0 


; WAS DRIVE "A" SELECTED? 


2488 


013304 


001002 






BNE 


NOTA 


; BR IF NO 


2489 


013306 


1 12021 






MOVB 


(R0X, (R1X 


;SET KEY FOR DRIVE "A" 


2490 


013310 


00041 1 






BR 


NEXT 




2491 


013312 


122710 


000102 


NOTA: 


CMPB 


8 "B, 3R0 


; WAS DRIVE "6" SELECTED? 


2492 


013316 


001002 






BNE 


NOTB 


; BR IF NO 


2493 


013320 


112021 






MOVB 


(R0)+, (Rl )+ 


;SET KEY FOR DRIVE "B" 


2494 


013322 


000404 






BR 


NEXT 




2495 


013324 


122710 


000054 


NOTB: 


CMPB 


#54,@R0 


;WAS A COMMA TYPED? 


2496 


013330 


001006 






BNE 


NOTLGL 


j BR IF NO 


2497 


013332 


105720 






TSTB 


(R0X 


;DUMP THE COMMA 


2498 


013334 


105710 




NEXT: 


TSTB 


m& 


; TERMINATOR? 


2499 


013336 


001406 






BEQ 


EXIT 


; BR IF YES 


2500 


013340 


022701 


001226 




CMP 


#DRVKEY+2,P1 


J TWO DRIVES SELECTED? 


2501 


013344 


101355 






BHI 


LOOP 


; BR IF NO 


2502 


013346 


104401 


001 176 


NOTLGL: 


TYPE 


,$QUES 


; ILLEGAL INPUT DETECTED 


2503 


013352 


000740 






BR 


ASKDRV 


?GO TRY AGAIN 


2504 


013354 


005767 


165644 


EXIT: 


TST 


DRVKEY 


; ANY DRIVE SELECTED? 


2505 


013360 


001772 






BEQ 


NOTLGL 


; BR IF NO 


2506 


013362 


000207 






RTS 


PC 





2507 
2508 
2509 
2510 

2511 



CALL 

JSR 



PC, fMASKADR 



2512 


013364 


010046 






ASK ADR : 


MOV 


R0,»(SP) 


;SAVE R0 


2513 


013366 


104401 


016760 




is : 


TYPE 


, MSGASK 


j "TACS?" 


2514 


013372 


104411 








RDOCT 




} GET VALUE 


2515 


013374 


012600 








MOV 


(SPX,R0 


fPICK UP THE OCTAL NUMBER 


2516 


013376 


001423 








BEQ 


3$ 


;IF "0" USE OLD VALUES 


2517 


013400 


020027 


160000 






CMP 


R0, #160000 


; MAKE SURE IT IS A BUS ADDRESS 


2518 


013404 


103770 








BLO 


1$ 




2519 


013406 


010037 


001206 






MOV 


R0,9#TACSL 


;SAVE TOE TACS 


2520 


013412 


062700 


000002 






ADD 


#2,R0 


J STEP TO TADB ADDRESS 


2521 


013416 


010037 


001212 






MOV 


R0,0»TAOBL 


; AND SAVE IT 


2522 


013422 


013737 


001206 


001210 




MOV 


@#TACSL,£8TACSH 


fSETUP TACS UPPER 


2523 


013430 


005237 


001210 






INC 


##TACSH 


; BYTE POINTER 


2524 


















2525 


013434 


013737 


001212 


001214 




MOV 


@#TADBL,##TADBH 


; SETUP TADB UPPER 


2526 


013442 


005237 


001214 






INC 


§#TADBH 


{BYTE POINTER 


2527 


013446 


104401 


016770 




3$: 


TYPE 


,MSGVEC 


; "VECTOR?" 
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SEQ 0067 



2528 


013452 


104411 






RDOCT 






2529 


013454 


012600 






MOV 


(SP)+,R0 




2530 


013456 


001411 






BEQ 


5S 




2531 


01 3460 


020027 


001000 




CMP 


R0, #1000 


; MAKE SURE ADDRESS IS IN VECTOR 


2512 


013464 


103370 






BHIS 


3S 




2533 


013466 


010037 


001216 




MOV 


R0, P#TAVEC 


} SAVE AS VECTOR ADDRESS 


2534 


013472 


062700 


000002 




ADD 


#2t R0 




2535 


013476 


010037 


001220 




MOV 


R0,9#TAVEC+2 




2536 


01 3502 


104401 


017000 


5S5 


TYPE 


,MSGPRI 


; ASK FOR PRIORITY 


2537 


013506 


104411 






RDOCT 






2538 


013510 


012600 






MOV 


(SP)+,R0 




2539 


013512 


00141 3 






BEQ 


6$ 


;IF "0" USE OLD VALUE 


2540 


013514 


020027 


000007 




CMP 


R0,#7 


1 MAKE SURE ITS VALID 


2541 


013520 


101370 






BHI 


5S 




2542 


013522 


000300 






SWAB 


R0 


;PUT INTO HIGH BYTE 


2543 


013524 


006200 






ASP 


R0 


; AND SHIFT 


2544 


013526 


006200 






ASR 


R0 


;INTO PROPER 


2545 


013530 


006200 






ASR 


R0 


jPOSITION 


2546 


013532 


042700 


177437 




BIC 


#*C<340>,R0 


;SAVE ONLY PRIORITY BITS 


2547 


013536 


010037 


001222 




MOV 


R0,@*TAPRIO 


;STORE IT AWAY 


2548 


013542 


104401 


017012 


6S; 


TYPE 


,MTACS 


jTACS=" 


2549 


013546 


016746 


165434 




MOV 


TACSL,-(SP) 


; ;SAVE TACSL FOR TYPEOUT 


2550 


013552 


104402 






TYPOC 




; ;GO TYPE— OCTAL ASC 1 1 (ALL DIGITS) 


2551 


013554 


104401 


017020 




TYPE 


t MTADB 


; n TADB=" 


2552 


01 3560 


016746 


165426 




MOV 


TADBL,-(SP) 


; j SAVE TADBL FOR TYPEOUT 


2553 


01 3564 


104402 






TYPOC 




; ; GO TYPE--OCTAL ASCI I (ALL DIGITS) 


2554 


013566 


104401 


017027 




TYPE 


, MTA VEC 


;"VECTORs M 


2555 


01 3572 


016746 


165420 




MOV 


TAVEC-(SP) 


; :SAVE TA VEC FOR TYPEOUT 


2556 


013576 


104402 






TYPOC 




j j GO TYPE—OCTAL ASC 1 1 ( ALL DIGITS) 


2557 


013600 


104401 


017040 




TYPE 


, MTAPRI 


; "PPI0RITY=" 


2558 


013604 


016746 


165412 




MOV 


TAPRIO,-(SP) 


; y SAVE TAPRIO FOR TYPEOUT 


2559 


01 3610 


104402 






TYPOC 




; ;GO TYPE— OCTAL ASC I I ( ALL DIGITS) 


2560 


013612 


104401 


017053 




TYPE 


,MSGOK 


; "OK?" 


2561 


01 3616 


104407 






RDCHR 




;GO READ ONE CHARACTER 


2562 


013620 


012600 






MOV 


(SP)*,R0 


; GET IT 


2563 


013622 


022700 


000015 




CMP 


#15rR0 


• IS IT "CR" ? 


2564 


01 3626 


001406 






BEQ 


7$ 


y BRANCH IF YES 


2565 


013630 


022700 


000131 




CMP 


#'Y#R0 


jIS IT "Y*? 


2566 


013634 


001403 






BEQ 


7S 


;IT WAS 


2567 


013636 


104401 


001 176 




TYPE 


,$QUES 


; TYPE "?" 


2568 


01 3642 


000651 






BR 


1$ 


; AND LET HIM CORRECT THEM 


2569 


01 3644 


104401 


017061 


7 $ S 


TYPE 


i MYES 


; TYPE OUT "YES" 


2570 


013650 


01 2600 






MOV 


(SP)+,R0 


; RESTORE R0 


2571 


013652 


000207 






RTS 


PC 


; AND RETURN 
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2572 














2573 














2574 








;THIS ROUTINE 


WILL CALCULATE 


THE CRC 


2575 








;CALL : 






2576 








? JSR 


PCDO.CRC 


;R0=1 BYTE OF DATA 


2577 














2578 


01 3654 






DO, CRC; 






2579 


013654 


010046 




MOV 


R0,-(SP) 


; jPUSH R0 ON STACK 


2580 


£13656 


010146 




MOV 


R1,-(SP) 


; ;PUSH Rl ON STACK 


2581 


013660 


010246 




MOV 


R2r-(SP) 


jyPUSH R2 ON STACK 


2582 


01 3662 


010346 




MOV 


R3,-(SP) 


; ;PUSH R3 ON STACK 


2583 


013664 


010446 




MOV 


R4,»(SP) 


j j PUSH R4 ON STACK 


2584 


013666 


012767 


000010 


000054 MOV 


£8, ,3$ 


; MAKE EIGHT ITERATIONS 


2585 


01 3674 


016703 


000074 


MOV 


CRC.WD, R3 


; PICKUP THE CRC WORD 


2586 


013700 


005001 




IS: CLR 


Rl 




2587 


01 3702 


010302 




MOV 


R3,R2 


; GET THE PARTIAL CRC WORD 


2588 


01 3704 


042702 


177776 


BIC 


#~CBIT00,R2 


; STRIP AWAY EVERYTHING BUT B1T00 


2589 


013710 


006000 




ROR 


R0 


JPULL OFF THIS BIT 


2590 


013712 


006101 




ROL 


Rl 


; AND SETUP TO XOR IT 


2591 


013714 


010104 




MOV 


R1,R4 


; FORM THE XOR OF "Rl" AND "R2" 


2592 


013716 


040204 




BIC 


R2*R4 




2593 


013720 


040102 




BIC 


R1,R2 




2594 


013722 


050402 




BIS 


R4,R2 


; RESULTS TO "R2* 


2595 


013724 


006002 




ROR 


R2 




2596 


013726 


103006 




BCC 


2$ 




2597 


013730 


012701 


040002 


MOV 


#B1T141BIT01 


Rl 


2598 


013734 


010104 




MOV 


R1,R4 


; FORM THE XOR OF "Rl" AND "R3" 


2599 


013736 


040304 




BIC 


R3,R4 




2600 


013740 


040103 




BIC 


R1,R3 




2601 


013742 


050403 




BIS 


R4,R3 


;RESULTS TO "R3" 


2602 


013744 


006003 




2$: ROR 


R3 




2601 


013746 


005327 




DEC 


(PC) + 




2604 


013750 


000000 




3SS 






2605 


013752 


003352 




BGT 


1$ 


; BR IF MORE BITS TO DO 


2606 


013754 


010367 


000014 


MOV 


R3, CRC.WD 




2607 


013760 


012604 




MOV 


(SP)+,R4 


; ;POP STACK INTO R4 


2608 


013762 


012603 




MOV 


(SP)+,R3 


; ;POP STACK INTO R3 


2609 


013764 


012602 




MOV 


(SP)+,R2 


; jPOP STACK INTO R2 


2610 


013766 


012601 




MOV 


(SP)+,R1 


IJPOP STACK INTO Rl 


2611 


013770 


012600 




MOV 


(SP)+,R0 


J | POP STACK INTO R0 


2612 


013772 


000207 




RTS 


PC 




2613 


013774 


000000 




cpc. wd: 




;CRC WORD 


2614 








1 
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2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 



'////////// 
/////////// 

• THE FOLLOWING ROUTINES CAN BE USED TO MAKE ADJUSTMENTS TO THE TU60 

; NOTE : *t« BEFORE USING ANY OF THE ROUTINES LOAD AND START AT 214 Ml 



WRITE FILE GAPS FROM " BOT' 
; START AT 220 
JTHIS ROUTINE CAN BE USED 
; THE "WRITE DELAY MONO". 



TO " EOT" 

TO ADJUST THE " WRITE GAP MONO" AND 



013776 


012706 


001100 WFGSUBs 


MOV 


#STACK,SP 


; KEEP THE STACK OUT JF THE 


WAY 


014002 


013704 


001206 


MOV 


e#TACSL,TACS 


;SETUP THE TA1 1 STATUS AND 




014006 


013705 


001212 


MOV 


P#TADBL» TADB 


; DAT A BUFFER REGISI ~RS 




014012 


000005 




BESET 




; RESET THE WORLD 




014014 


012737 


013776 001110 


MOV 


#WFGSUB,e#$LPERR 


; SETUP THE LOOP ON 


ERR 


014022 


004737 


015002 


JSR 


PC,a#NXTDRV 


•GO SETUP FOR NEXT DRIVE 




014026 


010314 




MOV 


DRIVE, 9TACS 


; SELECT DRIVE 




014030 


112714 


000017 


MOVB 


tREWINDi GO, PTACS 


* SEND TAPE TO "BOT" 




014034 


032714 


000040 100$: 


BIT 


# READY, OTACS 


; WAIT ON READY 




014040 


001775 




BEQ 


100$ 






014042 


112714 


000001 i$; 


MOVB 


#WFG!GO,PTACS 


jWRITE A FILE GAP 




014046 


104412 




WA1TREADY 


;WAIT ON READY 




014050 


032714 


020000 


BIT 


#LEADER,PTACS 


J AT "CLEAR LEADER"? 




014054 


001772 




BEG 


1$ 


;BR IF NO 




014056 


000000 




HALT 




;STOP IF YES 




014060 


000746 




BR 


WFGSUB 


; LOOP ON CONT. 





WRITE CONTINUOUS BLOCKS OF DATA 
START AT 224 

THE PROGRAM WILL HALT THREE ( 3 ) TIMES 
AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 
HALT 1 -« SWR<7:0> = NUMBER OF BYTES PER BLOCK 
HALT 2 --- SWR<7 :0> = PATTERN DESIRED 
HALT 3 SWR<15:0> = OPERATIONAL SWITCH SETTINGS 

THIS ROUTINE CAN BE USED TO ADJUST THE "GAP TIME MONO" 
** IF USING SOFTWARE SWITCH REGISTER, AFTER 
EACH HALT OPERATOR WILL BE PROMPTED 
FOR THE VALUE WITH "SWR=XXXXXX NEW=" 



2660 


014062 


004737 


014544 


WRTSUB: 


JSR 


PC,«#SETBUF 


; GET BLOCK SIZE AND PATTERN 


2661 


014066 


012706 


001 100 


wloop: 


MOV 


#STACK,SP 


•KEEP THE STACK OUT OF THE WAY 


2662 


014072 


01 3704 


001206 




MOV 


9#TACSL,TACS 


;SETUP THE TA 1 1 STATUS AND 


2663 


014076 


013705 


001212 




MOV 


P#TADBL, TADB 


•DATA BUFFER REGISTERS 


2664 


01 4102 


000005 






RESET 




; RESET THE WORLD 


2665 


014104 


012737 


014066 001110 




MOV 


«WLOOP, 9#$LPERR 


; SETUP THE LOOP ON ERROR ADDRESS 


2666 


014112 


004737 


015002 




JSR 


PC,P*NXTDRV 


;GO SETUP FOR NEXT DRIVE 


2667 


014116 


010314 






MOV 


DRIVE, PTACS 


; SELECT DRIVE 


2668 


014120 


112714 


000017 




MOVB 


#R£WIND J GO, PTACS 


; SEND TAPE TO "BOT" 


2669 


014124 


032714 


000040 


100$: 


BIT 


# READY, PTACS 


•WAIT ON READY 


2670 


0141 30 


001775 






BEQ 


100$ 
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2671 


014132 


004737 


014660 


2672 


01 41 36 


032714 


020000 


2673 


014142 


0017 7 3 




2674 


014144 


000000 




2675 


014146 


000747 




2676 








2677 








2678 








2679 








2680 








2681 








2682 








2683 








2684 


014150 


012706 


001100 


2685 


014154 


01 3704 


001206 


2686 


014160 


013705 


001212 


2687 


014164 


000005 




2688 


014166 


012737 


014150 


2689 


014174 


004737 


015002 


2690 


014200 


010314 




2691 


014202 


112714 


000017 


2692 


014206 


032714 


000040 


2693 


014212 


001775 




2694 


014214 


004737 


014722 


2695 


014220 


032714 


020000 


2696 


014224 


001351 




2697 


014226 


000772 




2698 








2699 








2700 








2701 








2702 








2703 








2704 








2705 








2706 








2707 








2708 








2709 








2710 








2711 








2712 








2713 








2714 


014230 


004737 


014544 


2715 


014234 


012706 


001100 


2716 


014240 


013704 


001206 


2717 


014244 


013705 


001212 


2718 


014250 


000005 




2719 


014252 


012737 


014234 


2720 


014260 


004737 


015002 


2721 


014264 


010314 




2722 


014266 


112714 


000017 


2723 


014272 


032714 


000040 


2724 


014276 


001775 




2725 


014300 


112714 


000001 


2726 


014304 


104412 





JSR 


PC, PSWRTBLK 


; WRITE A BLOCK 


BIT 


#LEADER, (3TACS 


; AT "CLEAR LEADER"? 


BEQ 


1$ 


; BR IF NO 


HALT 




;STOP IF "EOT" 


BR 


WLOOP 


;LOOP IF CONT. 


READ 


CONTINUOUS BLOCKS OF 


DATA 


; START AT 230 




;THIS 


ROUTINE CAN BE USED 


TO ADJUST THE "SIGNAL MONO 4 


; AND 


THE "THRESHOLD POT" . 




MOV 


#STACK,SP 


; KEEP THE STACK OUT OF THE WAY 


MOV 


MTACSL, TACS 


; SETUP THE TA 1 1 STATUS AND 


MOV 


e*TADBL,TADB 


; DATA BUFFER REGISTERS 


RESET 




; RESET THE WORLD 


MOV 


#RDSUB,§#$LPERR 


; SETUP THE LOOP ON ERROR ADDRESS 


JSR 


PC,9#NXTDRV 


;GO SETUP FOR NEXT DRIVE 


MOV 


DRIVE, PTACS 


; SELECT DRIVE 


MOVB 


#REWINDiGO, ai'ACS 


; SEND TAPE TO "BOT" 


BIT 


# READY, ATACS 


; WAIT ON READY 


BEQ 


100$ 




JSR 


PC, iSRDBLK 


; READ A BLOCK 


BIT 


ILEADER, gTACS 


; AT "CLEAR LEADER"? 


BNE 


RDSUB 


; BR IF YES---LQOP 


BR 


1$ 





• »***#»#**####»»#«»*»##*####«*##«##*##******#***»##»#»##*#«»#«•#«■ 
WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT 
; START AT 234 

; THE PROGRAM WILL HALT THREE ( 3 ) TIMES 

; AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 

i HALT 1 --- SWR<7 :0> = NUMBER OF BYTES PER BLOCK 

j HALT 2 SWR<7:0> = PATTERN DESIRED 

; HALT 3 SWR<15:0> = OPERATIONAL SWITCH SETTINGS 

IF USING SOFTWARE SWITCH REGISTER , AFTER 
EACH HALT OPERATOR WILL BE PROMPTED 
FOR THE VALUE WITH "SWR=XXXXXX NEW=" 
; AND THE "GAP TIME MONO" . 

;THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 



WGPBLK: 

WGBLQPs 



JSR 

MOV 

MOV 

MOV 

RESET 

MOV 

JSR 

MOV 

MOVB 

BIT 

BEQ 

MOVB 



PC,e#SETBUF 

#STACK,SP 
@#TACSL,TACS 
gSTADBL, TADB 

#WGBLOP,9#$LPERR 
PC, S#NXTDRV 
DRIVE, PTACS 
#REWINDlGO,gTACS 
♦READY, PTACS 
100$ 

#WFGiGO,PTACS 



; GET BLOCK SIZE AND PATTERN 
; KEEP THE STACK OUT OF THE WAY 
; SETUP THE TAll STATJS AND 
; DATA BUFFER REGISTERS 
; RESET THE WORLD 

j SETUP THE LOOP ON ERROR ADDRESS 
;GO SETUP FOR NEXT D4IVE 
; SELECT DRIVE 
; SEND TAPE TO "BOT" 
;WAIT ON READY 

; WRITE A FILE GAP 
; WAIT ON READY 
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2727 


014306 


03: 714 


020000 


2728 


014312 


00v 005 




2729 


014314 


004737 


014660 


2730 


014320 


03: 714 


020000 


2731 


014324 


00 765 




2732 


014326 


001 000 




2733 


014330 


00C741 




2734 








2735 








2736 








2737 








2738 








2739 








2740 








2741 








2742 








2743 


014332 


2706 


001100 


2744 


01 4336 


013704 


001206 


2745 


014342 


01 3705 


001212 


2746 


014346 


000005 




2747 


014350 


012737 


014332 


2748 


014356 


004737 


015002 


2749 


014362 


010314 




2750 


014364 


112714 


000017 


2751 


01 4370 


032714 


000040 


2752 


014374 


001775 




2753 


014376 


004737 


014722 


2754 


014402 


032714 


020000 


2755 


014406 


001351 




2756 


014410 


112714 


000015 


2757 


014414 


104412 




2758 


014416 


032714 


020000 


2759 


014422 


001 343 




2760 


014424 


000764 




2761 








2762 








2763 








2764 








2765 








2766 








2767 








2768 








2769 








2770 








2771 


014426 


012706 


001 100 


2772 


01 4432 


013704 


001206 


277 3 


01 4436 


013705 


001212 


2774 


014442 


300005 




2775 


014444 


012737 


014426 


2776 


014452 


004737 


015002 


2777 


014456 


010314 




2778 


014460 


112714 


000017 


2779 


014464 


032714 


000040 


2780 


014470 


001775 




2781 


01 4472 


112714 


00001 3 


2782 


014476 


104412 







BIT 


#LEADER, 3TACS 


; AT "CLEAR LEADER"? 




BNE 


2$ 


;BR IF YES 




JSR 


PC, 0*WRTBLK 


;WRITE A BLOCK 




BIT 


f LEADER, ?TACS 


; AT "CLEAR LEADER"? 




BEQ 


1$ 


; BR IF NO 


2S: 


HALT 




; STOP AT " EOT" 




BR 


WGBLOP 


; START OVER ON CONT . 


..««»*» 

; 


READ A 


BLOCK OF DATA AND A 


FILE GAP 




; START 


AT 240 






jTHIS 


ROUTINE IS USED AFTER 


"WRITE A BLOCK AND A FILE GAP" 




• IT CAN BE USED TO ADJUST THE "SIGNAL MONO", THE THRESHOLD 




•AND THE "TAPE BLANK MONO" , 




RGPBLK: 


MOV 


#STACK,SP 


; KEEP THE STACK OUT OF THE 




MOV 


?STACSL,TACS 


•SETUP THE TAl 1 STATUS AND 




MOV 


g#TADBL, TADB 


; DATA BUFFER REGISTERS 




RESET 




; RESET THE WORLD 




MOV 


#RGPBLK, g#$LPERP 


; SETUP THE LOOP ON 




JSR 


PC, 98NXTDRV 


;GO SETUP FOR NEXT DRIVE 




MOV 


DRIVE, STACS 


; SELECT DRIVE 




MOVB 


#REWIND!GO,eTACS 


; SEND TAPE TO "BOT" 


100$: 


BIT 


8READY, 9TACS 


•WAIT ON READY 




BEQ 


100$ 




IS! 


JSR 


PC, MRDBLK 


; READ A BLOCK OF DATA 




BIT 


# LEADER, PTACS 


; AT "CLEAR LEADER"? 




BNE 


RGPBLK 


; BR IF YES 




MOVB 


#SFBG!GO,aTACS 


; GET INTO A FILE GAP 




WA1TREADY 






BIT 


t LEADER, 9TACS 


; AT "CLEAR LEADER"? 




BNE 


RGPBLK 


; BR IF YES 




BR 


1$ 


j LOOP 



SPACE FORWARD FILE GAP FROM "BOT" TO "EOT" 
• START AT 244 

•THIS ROUTINE CAN BE USED AFTER "WRITE FILE GAP" FOR LOW SPEED 
;SPACE FOWARD (TAPE BLANK MONO CAN BE ADJUSTED), OR AFTER READ OR 
; WRITE A FILE GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD 
• (SIGNAL MONO CAN BE CHECKED) . 



SFFGSB : 


MOV 


*STACK, SP 


; KEEP THE STACK OUT OF THE 




MOV 


£#TACSL, TACS 


; SETUP THE TAl 1 STATUS AND 




MOV 


£ # TADB L , TADB 


• DATA BUFFER REGISTERS 




RESET 




; RESET THE WORLD 




MOV 


# SFFGSB , eiSLPERP 


•SETUP THE LOOP ON 




JSR 


PC,§i*NXTDRV 


;GO SETUP FOR NEXT DRIVE 




MOV 


DRIVE, £TACS 


; SELECT DRIVE 




MOVB 


#REWlNDiGO,$TACS 


; SEND TAPE TO "BOT" 


100$: 


BIT 


IREADY, 0TACS 


; WAIT ON READY 




BEQ 


100$ 




is: 


MOVB 


iSFFGi GO, 0TACS 


; SPACE INTO A FILE GAP 




W A 1 TREAD Y 


;WAIT ON READY 
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2783 


01 4500 


03271 4 


020000 






BIT 


# LEADER , PTACS 


; AT "CLEAR LEADER"? 


2784 


01 4504 


001772 








BEQ 


1$ 


; BR IF NO 


2785 


014506 


000000 








HALT 




jSTOP AT "EOT" 


2786 


014510 


B00746 








BR 


SFFGSB 


;LOOP ON CONT, 


2787 


















2788 


















2789 












2790 












BACK SPACE FILE GAP 




2791 












; START 


AT 250 




2792 












j THIS 


ROUTINE CAN BE USED TO 


ADJUST OR CHECK THE "SIGNAL MONO" , 


2793 


















2794 


014512 


000005 






BSFGSB : 


RESET 




; RESET THE WORLD 


2795 


014514 


012737 


014512 


001110 




MOV 


lBSFGSB,f>#$LPERR 


;LOOP ON ERROR ADDRESS 


2796 


014522 


010314 








MOV 


DRIVE, 3TACS 


; SELECT DRIVE 


2797 


014524 


112714 


000007 




1$: 


MOVB 


#BSFGJGO,(3TACS 


; BACK SPACE A FILE GAP 


2798 


014530 


104412 








WAITREADY 


•WAIT ON READY 


2799 


014532 


032714 


020000 






BIT 


ft LEADER, 9TACS 


; AT "CLEAR LEADER" ? 


2800 


014536 


001772 








BEQ 


1$ 


; BR IF NO 


2801 


01 4540 


000000 








HALT 




;STOP AT BOT 


2802 


01 4542 


000763 








BR 


BSFGSB 


; START OVER ON CONT. 


2803 


















2804 


















2805 










• • «••»#■»»■»#»#■& 


2806 












SETUP 


BLOCK SIZE AND PATTERN 


FOR SUBROUTINES 


2807 












2808 


014544 


005000 






SETBUF: 


CLP 


R0 




2 809 


01 4546 


000000 








HALT 




; OPERATOR PUTS BYTE COUNT IN SWR<7:0> 


2810 


014550 


022767 


000176 


164362 




CMP 


ISWREG, SWP 


;US1NG S/W SWITCH REG,? 


2811 


014556 


001001 








BNE 


20$ 


j NO- GET OUT 


2812 


014560 


104405 








GTSWR 




% LET HIM CHANGE IT 


2813 


014562 








20$: 






;C0NTINUE 


2814 


014562 


157700 


164352 






BISB 


@SWR,R0 JPICKUP THE BYTE COUNT 


2815 


014566 


001006 








BNE 


2$ 


; BR IF NON-ZERO 


2816 


014570 


105777 


164345 






TSTB 


PSWR+1 


•CHECK IF GREATER THAN 377 


2817 


01 4574 


001402 








BEQ 


1$ 


; BR IF NO 


2818 


014576 


012700 


000376 






MOV 


#376, R0 


;SET FOR MAX ALLOWED 


2819 


014602 


005200 






1$: 


INC 


R0 


; MAKE IT 377 OR 1 


2820 


014604 


010037 


014654 




2$: 


MOV 


R0,a#BLKLIM 


; SETUP THE BLOCK LIMIT 


2821 


01 4610 


005037 


014656 






CLR 


P# PATTRN 




2822 


014614 


000000 








HALT 




; OPERATOR PUTS PATTERN IN SWR<7 :0> 


2823 


014616 


022767 


000176 


164314 




CMP 


ISWREG, SWR 


;USING S/W SWITCH REG,? 


2824 


014624 


001001 








BNE 


21$ 


;NO- GET OUT 


2825 


014626 


104405 








GTSWR 




; LET HIM CHANGE IT 


2826 


014630 








21$: 






{CONTINUE 

;PICK UP THE PATTERN 


2827 


014630 


117737 


164304 


014656 




MOVB 


®SWR,§#PATTRN 


2828 


01 4636 


000000 








HALT 




;SET OPERATIONAL SWITCHES 


2829 


014640 


022767 


000176 


164272 




CMP 


»SWREG,SWR 


;USING S/W SWITCH REG,? 


2830 


01 4646 


001001 








BNE 


22$ 


j NO- GET OUT 


2831 


014650 


104405 








GTSWR 




; LET HIM CHANGE IT 


2832 


014652 








22$: 






{CONTINUE 


2833 


014652 


000207 








RTS 


PC 


; RETURN 


2834 


014654 


000000 






8LKLIM : 







; READ AND WRITE BLOCK SIZE 


2835 


014656 


000000 






PATTRN: 







; PATTERN TO GO ON THE TAPE 


2836 


















2837 


















2838 
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SEQ 0073 



2839 










WRITE ROUTINE FOR THE MANUAL 


OPERATIONS 


2840 










2841 


014660 


013701 


014654 


WPTBLK ; 


MOV 


@«BLKLIM,R1 


yPICKUP THE BLOCK SIZE 


2842 


014664 


112714 


000003 




MOVB 


#WRITEJGQ,®TACS 


•START A WRITE 


2843 


014670 


104413 




IS! 


WAITXFER 


; WAIT ON TRANSFER REQUEST 


2844 


014672 


032714 


000040 




BIT 


IREADYr @TACS 


;DID READY SET? 


2845 


014676 


001010 






BNE 


3$ 


; BR IF YES 


2846 


01 4700 


005301 






DEC 


Rl 


;COUNT THIS REQUEST 


2847 


014702 


002403 






BLT 


2$ 


; BR IF TIME FOR ILBS 


2848 


014704 


113715 


014656 




MOVB 


9#PATTRN, 3TADB 


;PUT DATA ON TAPE 


2849 


014710 


000767 






BR 


is 


;LOOP 


2850 


014712 


052714 


000020 


2S: 


BIS 


#ILBS,§TACS 


; WRITE CRC AND SHUT DOWN 


2851 


014716 


104412 






WAITREADY 


; WAIT ON THE READY FLAG 


2852 


014720 


000207 




3$: 


RTS 


PC 




2853 
















2854 
















2855 










2856 










READ ROUTINE FOR THE MANUAL 


OPERATIONS 


2857 










2858 


014722 


01 3702 


014654 


PDBLK: 


MOV 


9#BLKLIM,R2 


;PICKUP THE BLOCK SIZE 


2859 


014726 


01 3700 


014656 




MOV 


gfPATTRN,R0 


jUSE THIS DATA PATTERN TO COMPARE 


2860 


014732 


112714 


000005 




MOVB 


t READ 1 GO, PTACS 


• START A READ 


2861 


014736 


104413 




1$: 


WAITXFER 


;WAIT ON TRANSFER REQUEST 


2862 


01 4740 


032714 


000040 




BIT 


9 READY* ©TAGS 


J IS READY SET? 


2863 


014744 


001012 






BNE 


35 


; BR IF YES 


2864 


014746 


005302 






DEC 


R2 


;COUNT THIS REQUEST 


2865 


014750 


002405 






BLT 


2$ 


j BR IF TIME FOP ILBS 


2866 


014752 


01 1501 






MOV 


9TADB,R1 


; READ THE DATA BUFFER 


2867 


014754 


120001 






CMPB 


R0,R1 


;CHECK THE DATA 


2868 


014756 


001767 






BEG 


IS 


; BR IF OK 


2869 


01 4760 


104005 






ERROR 


5 


; BAD DATA 


2870 


014762 


000406 






BR 


4S 


; GET OUT 


287 1 


014764 


052714 


000020 


2 $ S 


BIS 


# ILBSr PTACS 


jREAD ILBS 


2872 


014770 


104412 






WAITREADY 


•WAIT ON READY 


2873 


014772 


005714 




3$! 


TST 


3TACS 


;CHECK FOR ERROR 


2874 


014774 


100001 






BPL 


4$ 


; BR IF NONE 


2875 


014776 


104001 






ERROR 


1 


•ERROR OCCURRED 


2876 


015000 


000207 




4$: 


RTS 


PC 


; RETURN 


2877 
















2878 
















2879 
















2880 










ROUTINE 


TO CHANGE DRIVES 




288 1 


015002 


105777 


164132 


NXTDRV: 


TSTB 


9SWR 


; IS SW07 ON A ( 1)? 


2882 


015006 


100416 






BMI 


3$ 


; BR IF YES 


2883 


015010 


005003 






CLR 


DRIVE 


JSET DRIVE TO "A" 


2884 


015012 


013701 


001230 




MOV 


P*DPVPNT,R1 


; GET DRIVE POINTER 


2885 


01 5016 


122127 


000101 




CMPB 


(R1)+,#'A 


; IS IT DRIVE "A"? 


2886 


015022 


001402 






BEQ 


IS 


; BR IF YES 


2887 


015024 


012703 


000400 




MOV 


tUNIT, DRIVE 


jSET DRIVE TO "B" 


2888 


015030 


10571 I 




IS: 


TSTB 


(Rl) 


•LAST DRIVE BEEN SELECTED 


2889 


015032 


001002 






BNE 


2S 


; BR IF NO 


2890 


015034 


012701 


001224 




MOV 


#ORVKEX,Rl 


; RESET DRIVE POINTER 


2891 


015040 


010137 


001230 


2$: 


MOV 


Rl , e#DRVPNT 


;SAVE DRIVE POINTER FOR NEXT TIME 


2892 


015044 


000207 




3$: 


RTS 


PC 


•GO BACK 
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2893 








2894 








2895 








2896 








2897 








2898 








2899 








2900 








2901 








2902 








2903 


015046 


013701 


001206 


2904 


015052 


00501 1 




2905 


015054 


122710 


000101 


2906 


015060 


001402 




2907 


015062 


052711 


000400 


2908 


015066 


032711 


000040 


2909 


015072 


001775 




2910 


015074 


005711 




291 1 


015076 


100024 




2912 


015100 


032711 


001000 


2913 


015104 


001017 




2914 


015106 


0327U 


010000 


2915 


015112 


001411 




2916 


015114 


122777 


000201 


2917 


015122 


001412 




2918 


015124 


122777 


000203 


2919 


015132 


001406 




2920 


015134 


000403 




2921 


015136 


032711 


020000 


2922 


015142 


001002 




2923 


015144 


062716 


000002 


2924 


015150 


000207 





'.SBTTL ROUTINE TO EXAMINE DRIVE(S) FOR AVAILABLITY 





MOV 


»DRVKEY#R0 






JSR 


PC,0#EXAM 


Rl IS DESTROYED 




NORMAL 


RETURN 






ERROR 


RETURN 




EXAM: 


MOV 


MTACSL, Rl 


PICKUP THE "CONTROL & STATUS" REG. ADR. 




CLR 


(Rl) 


DRIVE="A", FUNCTlONr"WFG" 




CMPB 


#'A, (P0) 


EXAMINE DRIVE "A"? 




BEQ 


IS 


BR IF YES 




BIS 


#UNIT, (Rl ) 


SELECT DRIVE "B" 


IS: 


BIT 


IREADY, (Rl) 


WAIT ON READY 




BEQ 


1$ 






TST 


(Rl) 


ANY ERROR? 




BPL 


4$ 


BR IF NO 




BIT 


^OFFLINE, (Rl) 


ERROR DUE TO "OFF LINE"? 




BNE 


3$ 


BR IF YES 




BIT 


#WRTLOCK, (Rl ) 


ERROR DUE TO "WRITE LOCK"? 




BEQ 


2$ 


BR IF NO 




CMPB 


*BIT07!BIT00,?SWR 


"READONLY" SELECTED? (RD1PAS) 




BEQ 


4S 


BR IF YES 




CMPB 


IBIT07 JBIT01 !8IT00,eSWR 


(RD2PAS) ? 




BEQ 


4S 


BR IF YES 




BR 


3$ 


TAKE THE ERROR EXIT 


2$: 


BIT 


*LEADER, (PI ) 


ERROR DUE TO "CLEAR LEADER"? 




BNE 


4$ 


BR IF YES 


3s: 


ADD 


«2, (SP) 


TAKE ERROR RETURN 


4s: 


RTS 


PC 


RETURN 
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SEQ 0075 



2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 



, SBTTL TYPE ROUTINE 

• • #•##**♦♦#*#»#•»#**•*»#♦»♦#«#»**#*♦*#**#♦♦♦♦♦#♦♦♦♦♦»♦♦♦♦♦♦♦♦*♦♦♦* 

;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 
•♦THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 



♦NOTE1 ! 
;^NOTE2: 
♦NOTE3 : 

* 

♦CALL: 
♦1 ) USING A 
♦ TYPE 



$ NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



TRAP INSTRUCTION 
, MESADR 



; ; MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



2937 








y #OR 








2938 










TYPE 






2939 








• * 


MESADR 






2940 








• * 








2941 
















2942 


015152 


1 05767 


1 64001 


STYPES 


TSTB 


$ TPFLG 


„ _ t c TLJriUr A TITDUTUKf O 

; ; I o THLKfc, A rfcKMlNAL f 


2943 


015156 


100002 






BPL 


i S 


•, ; BR IF YES 


2944 


015160 


000000 






HALT 




; ; HALT HERE IF NO TERMINAL 


2945 


015162 


000407 






BR 


3$ 


; } LEAVE 


2946 


015164 


010046 




IS : 


MOV 


P0# "(SP) 


j % SAVE R0 


2947 


015166 


017600 


000002 




MOV 


$21 SP ) , R0 


; ; GET ADDRESS OF ASCIZ STRING 


2948 


015172 


1 12046 




2S ; 


MOVB 


(R0)+# -(5P) 


; ; PUSH CHARACTER TO BE TYPED ONTO STACK 


2949 


015174 


001005 






BNE 


4S 


; ; BR IF I T ISN'T THE TERMINATOR 


2950 


015176 


005726 






TST 


( SP) + 


; ; IF TERMINATOR POP I T OFF THE STACK 


2951 


01 5200 


01 2600 




60S : 


MOV 


( SP ) ♦ , R0 


i 1 RESTORE R0 


2952 


015202 


0627 1 6 


000002 


3S : 


ADD 


#2» (SP) 


i ' ADJUST RETURN pC 


2953 


015206 


000002 






PTI 




; ; Btl URN 


295 4 


015210 


122716 


00001 1 


4$ s 




If Ml > I or ) 




2955 


015214 


0014 30 






BEQ 


8 S 




2956 


015216 


122716 


000200 




CMPB 


SCRLF, ( SP) 


• iBDlkirU T C MAT /•PDI fx 
J , OKANL n X r NUi vl Kbf > 


2957 


015222 


001006 






BNE 


5S 




2958 


015224 


005726 






TST 


( SP ) ♦ 


J jrUr vLir * cuu * v 


2959 


01 5226 


104401 






TYPE 




. • tv or a cd tun r f 
{ j 1 Irb A UK flHU Sjr 


2960 


015230 


001 177 






SCRLF 






2961 


015232 


105067 


000 1 30 




CLRB 


SLM AHtNT 


,,rtPHD fUSDSfTFD r (HIWT 
J }\. LiCAK tnnKAL J tp UUUNi 






(a an c c 

lOvv f D J 






BR 




••GET NEXT CHARACTER 


2963 


015240 


004767 


000056 


5$: 


JSR 


PC, STYPEC 


••GO TYPE THIS CHARACTER 


2964 


015244 


126726 


163706 


6$: 


CMPB 


SFILLC, (SP)f 


• • IS IT TIME FOR FILLER CHARS. ? 


2965 


015250 


001350 






BNE 


2S 


; ; IF NO GO GET NEXT CHAR, 


2966 


015252 


016746 


163676 




MOV 


SNULL, -(SP) 


; ; GET # OF FILLER CHARS, NEEDED 


2967 














; ; AND THE NULL CHAR. 


2968 


015256 


105366 


000001 


7$: 


DECB 


1 (SP) 


jjDOES A NULL NEED TO BE TYPED? 


2969 


015262 


002770 






BLT 


6$ 


; • BR IF NO--GO POP THE NULL OFF OF STACK 


2970 


015264 


004767 


000032 




JSR 


PC, STYPEC 


; ;G0 TYPE A NULL 


2971 


015270 


105367 


000072 




DECB 


SCHARCNT 


; ;DO NOT COUNT AS A COUNT 


2972 


015274 


000770 






BR 


7$ 


; ;LOOP 


2973 
















2974 








J HORIZONTAL TAB 


PROCESSOR 




2975 
















2976 


015276 


112716 


000040 


8$: 


MOVB 


#' , (SP) 


; ; REPLACE TAB WITH SPACE 


2977 


015302 


004767 


000014 


9$: 


JSR 


PC, STYPEC 


;;TYPE A SPACE 


2978 


015306 


132767 


000007 


000052 


BITB 


17, SCHARCNT 


; ; BRANCH IF NOT AT 


2979 


015314 


001 372 






BNE 


9$ 


j ; TAB STOP 


2980 


01531b 


005726 






TST 


(SP)* 


; ;POP SPACE OFF STACK 
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2981 


015320 


000724 








BR 


2S 


1 GET NEXT CHARACTER 


2982 


015322 


105777 


163622 




STYPEC? 


TSTB 


PSTPS 


; WAIT UNTIL PRINTER IS READY 


2983 


015326 


100375 








BPL 


STYPEC 




2984 


015330 


1 16677 


000002 


163614 




MOVB 


2(SP),$$TPB 


; LOAD CHAR TO BE TYPED INTO DATA 


2985 


015336 


122766 


000015 


000002 




CMPB 


#CR,2(SP) 


; IS CHARACTER A CARRIAGE RETURN? 


2986 


015344 


001003 








BNE 


1$ 


J BRANCH IF NO 


2987 


015346 


105067 


000014 






CLRB 


SCHARCNT 


; YES--CLEAR CHARACTER COUNT 


2988 


015352 


000406 








BR 


STYPEX 


;EXIT 


2989 


015354 


122766 


000012 


000002 


is: 


CMPB 


#LF,2(SP) 


;IS CHARACTER A LINE FEED? 


2990 


015362 


001402 








BEQ 


STYPEX 


; BRANCH IF YES 


2991 


015364 


105227 








INCB 


(PC) + 


;COUNT THE CHARACTER 


2992 


015366 


000000 






SCHARCNT : . WORD 





; CHARACTER COUNT STORAGE 


2993 


015370 


000207 






STYPEX: 


RTS 


PC 




2994 


















2995 










„ SBTTL 


READ AN 


OCTAL NUMBER FROM THE TTY 


2996 


















2997 










• • #♦*###***##»#♦**##*♦#*#♦*#♦#»*#####**#♦*#»»»##♦*♦#♦»***#*♦*#♦#* 


2998 










?*THIS 


ROUTINE 


WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


2999 










•♦CHANGE IT TO 


BINARY, 




3000 










S#CALLs 








3001 










• # 


RDOCT 


| ; READ AN OCTAL NUMBER 


3002 












RETURN 


HERE 


;LOW ORDER BITS ARE ON TOP OF THE 


3003 










• « 






; HIGH ORDER BITS ARE IN SHIOCT 


3004 


















3005 


015372 


01 1646 






SRDOCT: 


MOV 


(SP),~(SP3 


f PROVIDE SPACE FOR THE 


3006 


015374 


016666 


000004 


000002 




MOV 


4(SP),2(SP) j 


; INPUT NUMBER 


3007 


015402 


010046 








MOV 


R0,»(SP) 


;PUSH R0 ON STACK 


3008 


015404 


010146 








MOV 


R1,-(SP) 


;PUSH Rl ON STACK 


3009 


015406 


010246 








MOV 


R2,«(SP) 


?PUSH R2 ON STACK 


3010 


015410 


104410 






is: 


RDLIN 




i READ AN ASCIZ LINE 


3011 


015412 


012600 








MOV 


(SP)*,R0 


; GET ADDRESS OF 1ST CHARACTER 


3012 


015414 


005001 








CLR 


Rl 


;CLEAR DATA WORD 


3013 


015416 


005002 








CLR 


R2. 




3014 


015420 


112046 






2S: 


MOVB 


(R0)+,-(SP) 


jPICKUP THIS CHARACTER 


3015 


015422 


001412 








BEQ 


3$ , 


f IF ZERO GET OUT 


3016 


015424 


006301 








ASL 


Ri S 


;*2 


3017 


015426 


006102 








ROL 


R2 




3018 


015430 


006301 








ASL 


Ri ; 




3019 


015432 


006102 








ROL 


R2 




3020 


015434 


006301 








ASL 


Ri i 


J®8 


3021 


015436 


006102 








ROL 


R2 




3022 


015440 


042716 


177770 






BIC 


# "C7 , ( SP) j 


% STRIP THE ASCII JUNK 


3023 


015444 


062601 








ADD 


(SPH,R1 j 


; ADD IN THIS DIGIT 


3024 


015446 


000764 








BR 


2$ 


?LOOP 


3025 


015450 


005726 






3$: 


TST 


(SP)+ i 


jCLEAN TERMINATOR FROM STACK 


3026 


015452 


010166 


000012 






MOV 


P1,12(SP) 


?SAVE THE RESULT 


3027 


015456 


010267 


000010 






MOV 


R2, SHIOCT 




3028 


015462 


012602 








MOV 


(SP)+,R2 


;POP STACK INTO R2 


3029 


015464 


012601 








MOV 


(SP)+,R1 . 


JPOP STACK INTO Rl 


3030 


015466 


012600 








MOV 


(SP) + ,R0 f j POP STACK INTO R0 


3031 


015470 


000002 








RTI 


H RETURN 


3032 


015472 


000000 






SHIOCT: 


.WORD 


; fHIGH ORDER BITS GO HERE 


3033 










9 SBTTL 


TTY INPUT ROUTINE 




3034 


















3035 












3036 










, ENABL 


LSB 
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SEQ 0077 



3037 








3038 








3039 








3040 








3041 








3042 








3043 


01547 4 


022767 


000176 


3044 


01 5502 


001074 




3045 


015504 


105777 


163434 


3046 


015510 


10007 1 




3047 


015512 


1 1 7746 


163430 


3048 


015516 


042716 


177600 


3049 


015522 


022726 


000007 


3050 


015526 


001062 




3051 


015530 


126727 


163400 


3052 


015536 


001 456 




3053 








3054 


015540 


104401 


016221 


3055 


015544 


104401 


016226 


3056 


015550 


016746 


162422 


3057 


015554 


104402 




3058 


015556 


104401 


016237 


3059 


015562 


005046 




3060 


015564 


005046 




3061 


015566 


105777 


163352 


3062 


015572 


100375 




3063 








3064 


015574 


117746 


163 346 


3065 


015600 


042716 


177600 


3066 








3067 








3068 








3069 


01 5604 


021627 


000025 


3070 


015610 


001005 




3071 


015612 


104401 


016214 


3072 


015616 


062706 


000006 


3073 


015622 


000757 




3074 








3075 








3076 


015624 


021627 


000015 


3077 


015630 


001022 




3078 


015632 


005766 


000004 


3079 


015636 


001 403 




3080 


015640 


016677 


000002 


3081 


015646 


062706 


000006 


3082 


015652 


104401 


001 1 77 


3083 


015656 


1 26727 


163253 


3084 


015664 


001003 




3085 


01 5666 


012777 


000100 


3086 


01567 4 


000002 




3087 


015676 


004767 


177420 


3088 


015702 


021627 


000060 


3089 


015706 


002420 




3090 


015710 


021627 


000067 


3091 


015714 


003015 




3092 


015716 


042726 


000060 



•♦SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

;»SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TR/ P CALL 
•♦WHEN OPERATING IN TTY FLAG MODE, 



163436 SCKSWR: 



CMP 

BNE 

TSTB 

BPL 

MOVE 

BIC 

CMP 

BNE 

CMPB 

BEQ 

TYPE 

TYPE 

MOV 

TYPOC 

TYPE 

CLR 

CLP 

TSTB 

BPL 

MOVb 
BIC 



CMP 
BNE 
TYPE 

ADD 



000001 
163250 



11$: 
14$: 



15$: 
16$: 



BR 



CMP 

BNE 

TST 

BEQ 

MOV 

ADD 

TYPE 

CMPB 

BNE 

MOV 

RTI 

JSP 

CMP 

BLT 

CMP 

BGT 

BIC 



#SWREG,SWR 
15$ 

e$TKS 
15$ 

g$TKB,-(SP) 
8"C177, (SP) 
#7, (SP)+ 

15$ 

SAUTOB, #1 

15$ 

, SCNTLG 

,$MSWR 

SWPEG,-(SP) 

, SMNEW 

«(SP) 
»{SP) 
3STKS 
7$ 

S>$TKB,-(SP) 
*-C177, (SP) 



(SP) , »25 

10$ 

,$CNTLU 
#6,SP 

19$ 



(SP),*15 

16$ 

4(SP) 

11$ 

2(SP) , 3SWR 
#6,SP 
,$CRLF 
SINTAG, »1 

15$ 

#100,P$TKS 

PCSTYPEC 
(SP) , #60 
18$ 

(SP) , #67 
18$ 

160, (SP) ♦ 



j IS THE SOFT-SWR SELECTED? 
; BRANCH IF NO 

{CHAR THERE? 

; IF NO, DON'T WAIT AROUND 

{SAVE THE CHAR 

;STRIP-OFF THE ASCII 

;IS IT A CONTROL G? 

{NO, RETURN TO USER 

; ARE WE RUNNING IN AUTO-MODt? 

j BRANCH IF YES 

{ECHO THE CONTROL-G (*G) 

; TYPE CURRENT CONTENTS 

;SAVE SWREG FOR TYPEOUT 

;GO TYPE—OCTAL ASC 1 1 ( ALL DIGITS) 

; PROMPT FOR NEW SWR 

{CLEAR COUNTER 

•THE NEW SWR 

; CHAR THERE? 

; IF NOT TRY AGAIN 

{PICK UP CHAR 

• MAKE IT 7-BIT ASCII 



; {IS IT A CONTROL-U? 

; ; BRANCH IF NOT 

; ; YES, ECHO CONTROL-U (*U) 

; ; IGNORE PREVIOUS INPUT 

I {LET'S TRY IT AGAIN 



{IS IT A <CR>? 
; BRANCH IF NO 

; YES, IS IT THE FIRST CHAR? 

; BRANCH IF YES 

{SAVE NEW SWR 

; CLEAR UP STACK 

•ECHO <CR> AND <LF> 

• RE-ENABLE TTY KBD INTERRUPTS? 

; BRANCH IF NOT 

; RE-ENABLE TTY KBD INTERRUPTS 

; RETURN 

;ECHO CHAR 

;CHAR < 0? 

; BRANCH IF YES 

;CHAP > 7? 

{ BRANC H IF YES 

{STRIP-OFF ASCII 
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3093 


015722 


005766 


000002 


3094 


015726 


001403 




3095 


015730 


006316 




3096 


015732 


006316 




3097 


015734 


006316 




3098 


015736 


005266 


000002 


3099 


015742 


056616 


177776 


3100 


015746 


000707 




3101 


015750 


104401 


001 176 


3102 


015754 


000720 




3103 








3104 








3105 








3106 








3107 








3108 








3109 








3110 








3111 








3112 








3113 








3114 


015756 


011646 




3115 


015760 


016666 


000004 


3116 


015766 


105777 


163152 


3117 


015772 


100375 




3118 


015774 


117766 


163146 


3119 


016002 


042766 


177600 


3120 


016010 


026627 


000004 


3121 


016016 


001013 




3122 


016020 


105777 


163120 


3123 


016024 


100375 




3124 


016026 


117746 


163114 


3125 


016032 


042716 


177600 


3126 


016036 


022627 


000021 


3127 


016042 


001366 




3128 


016044 


000750 




3129 


016046 


026627 


000004 


3130 


016054 


002407 




3131 


016056 


026627 


000004 


3132 


016064 


003003 




3133 


016066 


042766 


000040 


3134 


016074 


000002 




3135 








3136 








3137 








3138 








3139 








3140 








3141 








3142 


016076 


010346 




3143 


016100 


012703 


016204 


3144 


016104 


022703 


016214 


3145 


016110 


101405 




3146 


016112 


104407 




3147 


016114 


112613 




3148 


016116 


122713 


000177 





TST 


2(SP) ; 


; IS THIS THE FIRST CHAR 




BEQ 


17$ ; 


; BRANCH IF YES 




ASL 


(SP) J 


;NO, SHIFT PRESENT 




ASL 


( SP) ; 


; CHAR OVER TO MAKE 




ASL 


(SP) 


; ROOM FOR NEW ONE, 


17$: 


INC 


2(SP) 


; KEEP COUNT OF CHAR 




BIS 


«2(SP) , (SP) J 


•SET IN NEW CHAR 




BR 


7$ 


; GET THE NEXT ONE 


18$: 


TYPE 


, SQUES 


{ TYPE ?<CRXLF> 




BR 


20$ ; 


{SIMULATE CONTROL-U 


.DSABL 


LSB 






•♦THIS 


ROUTINE 


WILL INPUT A SINGLE CHARACTER FROM THE TTY 


{♦CALL: 








» * 


RDCHR 




•INPUT A SINGLE CHARACTER FROM THE ' 


» * 


RETURN 


HERE 


{CHARACTER IS ON THE STACK 


• # 






{WITH PARITY BIT STRIPPED OFF 


SRDCHR: 


MOV 


(SP),-(SP) 


5 PUSH DOWN THE PC 




MOV 


4(SP),2(SP) 


j SAVE THE PS 


1$: 


TSTB 


e$TKS 


;WAIT FOR 




BPL 


1$ 


JA CHARACTER 




MOVB 


P$TKB,4(SP) 


•READ THE TTY 




BIC 


**C<177>,4(SP) 


• ; GET RID OF JUNK IF ANY 




CMP 


4(SP) , #23 


{IS IT A CONTROL-S? 




BNE 


3$ 


■ {BRANCH IF NO 


2$: 


TSTB 


&STKS 


' {WAIT FOR A CHARACTER 




BPL 


2$ 


• {LOOP UNTIL ITS THERE 




MOVB 


9$TKB,-(SP) 


{GET CHARACTER 




BIC 


•"C177, (SP) 


■ {MAKE IT 7-BIT ASCII 




CMP 


(SP)+, #21 


■ ;IS IT A CONTROL-Q? 




BNE 


2$ 


{ IF NOT DISCARD IT 




BR 


IS 


• { YES, RESUME 


3$: 


CMP 


4(SP),»140 


• {IS IT UPPER CASE? 




BLT 


4$ 


p {BRANCH IF YES 




CMP 


4(SP),#175 


; {IS IT A SPECIAL CHAR? 




BGT 


4$ 


; {BRANCH IF YES 




BIC 


840,4(SP) 


• {MAKE IT UPPER CASE 


4$: 


RTI 




•{GO BACK TO USER 


{♦THIS 


ROUTINE 


WILL INPUT A STRING FROM THE TTY 


;*CALL: 








• * 


RDLIN 




{ {INPUT A STRING FROM THE TTY 




RETURN 


HERE 


; { ADDRESS OF FIRST CHARACTER WILL BE 



$ RDLIN: MOV 



i$: 

2$5 



MOV 

CMP 

BLOS 

RDCHR 

MOVB 

CMPB 



R3,-(SP) 

#$TTYIN,R3 

#$TTYIN+8,,R3 



(SP)*, (R3) 
#177, (R3) 



; {TERMINATOR WILL BE A BYTE )F ALL 0'S 

; {SAVE R3 
{ {GET ADDRESS 
; {BUFFER FULL? 
{ {BP IF YES 

{ {GO READ ONE CHARACTER FROM THE TTY 
{ {GET CHARACTER 
{ { IS IT A RUBOUT 



i 
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3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 



016122 
016124 
016130 
016132 
016136 
016142 
016146 
016150 
016154 
016160 
016162 
016164 
016172 
016200 
016202 
016203 
016204 
016214 
016221 
016226 
016234 
016237 
016244 



001003 
104401 
000763 
111367 
104401 
122723 
001356 
105063 
104401 
012603 
01 1646 
016666 
012766 
000002 
000 
000 
000010 

052536 
136 

005015 

020075 
040 

036440 



016250 
016254 
016262 
016266 
016272 
016274 
016302 
016310 



017646 

116667 
1 12667 
062716 
000406 
1 12767 
112767 
112767 



000044 
016202 
000015 

177777 

001200 



000004 000002 
016204 000004 



4S5 

3$: 



005015 
006507 
053523 
000 
047040 
000040 



000012 
020122 



9S J 

STTYIN: 
SCNTLUi 
SCNTLG: 
smswr: 

smnew: 

, SBTTL 



BNE 

TYPE 

BR 

HOVB 

TYPE 

CMPB 

BNE 

CLRB 

TYPE 

MOV 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BLKB 

.ASCIZ 

9 ASCIZ 

.ASCIZ 



3S 

,SQUES 
IS 

(R3),9$ 
#9$ 

#15, (R3)* 

2$ 

~1(P3) 
,SLF 

CSP)+,R3 
(SP),«(SP) 
4(SP),2(SP) 
#$TTYIN, 4(SP) 



/"U/<15><12> 
/*G/<15><12> 
<15><12>/SWR 



; ;SKIP IF NOT 
? t TYPE A '?' 

; ;CLEAR THE BUFFER AND LOOP 
; ;ECHO THE CHARACTER 

;;CHECK FOR RETURN 
jyLOOP IF NOT RETURN 
; ; CLEAR RETURN (THE 15) 
; ; TYPE A LINE FEED 
; i RESTORE R3 

j ; ADJUST THE STACK AND PUT ADDRESS OF THE 
; ; FIRST ASCII CHARACTER ON IT 

t ? RETURN 

; ;storage for ascii char, to type 
; ; terminator 

; j reserve 8 bytes for tty input 

; jCONTROL "U" 
; ;CONTROL "G" 



.ASCIZ / NEW = / 

BINARY TO OCTAL (ASCII) AND TYPE 



•♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦ 

♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
♦OCTAL (ASCII) NUMBER AND TYPE IT. 

♦ STYPOS- — ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
♦CALL: 

♦ MOV NUM,-(SP) ; ; NUMBER TO BE TYPED 

♦ TYPOS ; ; C ALL FOR TYPEOUT 

♦ .BYTE N ; ;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

♦ .BYTE M ; ;M=1 OR 

♦ ; ; 1=TYPE LEADING ZEROS 

♦ ; ;0=SUPPRESS LEADING ZEROS 

♦ 

♦STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

♦STYPOS OR STYPOC 

♦CALL: 

♦ MOV NUM, -(SP) ; ; NUMBER TO BE TYPED 

♦ TYPON • ;C ALL FOR TYPEOUT 

♦ 

♦STYPOC ---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
♦CALL: 







* * 


MOV 


NUM # - ( SP ) 


; ; NUMBER TO BE TYPED 








TYPOC 




; ;C ALL FOR TYPEOUT 


000000 




STYPOS: 


MOV 


P(SP) ,-(SP) 


; JPICKUP THE MODE 


000001 


00021 1 




MOVB 


1(SP),$0FILL 


; ; LOAD ZERO FILL SWITCH 


000207 






MOVB 


(SP)+,SOMODE+l 


; ; NUMBER OF DIGITS TO TYPE 


000002 






ADD 


#2, (SP) 


; ; ADJUST RETURN ADDRESS 








BR 


STYPON 




000001 


000171 


STYPOC: 


MOVB 


#1,S0FILL 


; ;SET THE ZERO FILL SWITCH 


000006 


000165 




MOVB 


#6, SOMODE+l 


; ;SET FOR SIX(6) DIGITS 


000005 


000154 


STYPON: 


MOVB 


#5, SOCNT 


; } SET THE ITERATION COUNT 



TAll BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB-C 



ST ABC .NEW 


BINARY 


TO OCTAL (ASCII) AND TYPE 




3205 


016316 


010346 




MOV 


R3,-CSP) 


3206 


016320 


010446 




MOV 


R4,-(SP) 


3207 


016322 


010546 




MOV 


R5, -(SP) 


3208 


016324 


116704 


000145 


MOVB 


SOMODEtl ,R4 


3209 


016330 


005404 




NEG 


R4 


3210 


01&332 


062704 


000006 


ADD 


#6,R4 


321 1 


016336 


1 10467 


000132 


MOVB 


R4, SOMODE 


3212 


016342 


116704 


000125 


MOVB 


$0FILL,R4 


3213 


016346 


016605 


000012 


MOV 


12(SP),R5 


3214 


016352 


005003 




CLR 


R3 


3215 


016354 


006105 


1$: 


ROL 


R5 


3216 


016356 


000404 




BR 


3$ 


3217 


016360 


006105 


2$: 


ROL 


R5 


3218 


016362 


006105 




ROL 


R5 


3219 


016364 


006105 




ROL 


R5 


3220 


016366 


010503 




MOV 


R5,R3 


3221 


016370 


006103 


3S: 


ROL 


R3 


3222 


016372 


105367 


000076 


DECB 


SOMODE 


3223 


016376 


100016 




BPL 


7$ 


3224 


016400 


042703 


177770 


BIC 


•177770, R3 


3225 


016404 


001002 




BNE 


4$ 


3226 


016406 


005704 




TST 


R4 


3227 


016410 


001403 




BEQ 


5S 


3228 


016412 


005204 


4S: 


INC 


R4 


3229 


016414 


052703 


000060 


BIS 


#'0,R3 


3230 


016420 


052703 


000040 5$ : 


BIS 


$ ' ,R3 


3231 


016424 


110367 


000040 


MOVB 


R3,8S 


3232 


016430 


104401 


016470 


TYPE 


,8$ 


3233 


016434 


105367 


000032 7$ : 


DECB 


SOCNT 


3234 


016440 


003347 




BGT 


2S 


3235 


016442 


002402 




BLT 


6S 


3236 


016444 


005204 




INC 


R4 


3237 


016446 


000744 




BR 


2$ 


3238 


016450 


012605 


6$: 


MOV 


(SP)+,R5 


3239 


016452 


012604 




MOV 


(SP)+,R4 


3240 


016454 


012603 




MOV 


(SP)+,R3 


3241 


016456 


016666 


000002 000004 


MOV 


2(SP),4(SP) 


3242 


016464 


012616 




MOV 


(SP)+, (SP) 


3243 


016466 


000002 




RTI 




3244 


016470 


000 


8$: 


.BYTE 





3245 


016471 


000 




.BYTE 





3246 


016472 


000 


SOCNT: 


.BYTE 





3247 


016473 


000 


S0FILL: 


„BYTE 





3248 


016474 


000000 


SOMODE: 


.WORD 
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; ;SAVE R3 

;;SAVE R4 
j ; SAVE R5 

|f GET THE NUMBER OF DIGITS TO TYPE 

; ; SUBTRACT IT FOR MAX, ALLOWED 

; J SAVE IT FOR USE 

; ; GET THE ZERO FILL SWITCH 

; JPICKUP THE INPUT NUMBER 

: ; CLEAR THE OUTPUT WORD 

; i ROTATE MSB INTO "C" 

; ;GO DO MSB 

; /FORM THIS DIGIT 



J GET LSB OF THIS DIGIT 

; TYPE THIS DIGIT? 

?BR IF NO 

J GET RID OF JUNK 

; TEST FOR 

} SUPPRESS THIS 0? 

; BR IF YES 

JDON'T SUPPRESS ANYMORE 0'S 

; MAKE THIS DIGIT ASCII 

; MAKE ASCII IF NOT ALREADY 

J SAVE FOR TYPING 

;GO TYPE THIS DIGIT 

JCOUNT BY 1 

; BR IF MORE TO DO 

; BR IF DONE 

; INSURE LAST DIGIT ISN'T A BLANK 

jGO DO THE LAST DIGIT 

; RESTORE R5 
; ; RESTORE R4 
; ; RESTORE R3 

; JSET THE STACK FOR RETURNING 
; ; RETURN 

;; STORAGE FOR ASCII DIGIT 
; j TERMINATOR FOR TYPE ROUTINE 
IJOCTAL DIGIT COUNTER 
J ; ZERO FILL SWITCH 

NUMBER OF DIGITS TO TYPE 



TA11 BASIC LOGIC TEST (PART 2) MAINDEC-i 1 -DZTAB-C 
DZTABC.NEW TRAP DECODER 
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SEQ 0081 



3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 



016476 
016500 
016504 
016506 
016510 
016512 
016516 



016520 
016522 
016530 



016532 
016534 
016536 

016540 
016542 



016546 
016550 
016552 
016554 
016556 
016560 



. SBTTL TRAP DECODER 

'•♦THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE " TRAP" INSTRUCTION 
; *AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
•#OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
j*GO TO THAT ROUTINE . 



016600 
005740 
111000 
006300 
016000 
000200 



011646 
016666 
000002 



016520 

015152 
016274 
016250 

016310 





STRAP: 


MOV 


P0,»(SP) 


; j SAVE R0 


000002 




MOV 


2 (SP) , R0 


; j GET TRAP ADDRESS 






TST 


»(R0) 


; ;BACKUP BY 2 






MOVB 


(R0),R0 


y j GET RIGHT BYTE OF TRAP 






ASL 


R0 


; j POSITION FOR INDEXING 


016532 




MOV 


STRPADCR0) ,R0 


; ; INDEX TO TABLE 






RTS 


R0 


;jGO TO ROUTINE 




J ;THIS 


IS USE 


TO HANDLE THE " 


GETPRI" MACRO 




$TRAP2 


MOV 


(SP),-(SP) 


; ;MOVE THE PC DOWN 


000004 


000002 


MOV 


4(SP),2(SP) 


jjMOVE THE PSW DOWN 






RTI 




; j RESTORE THE PSW 




.SBTTL 


TRAP 


TABLE 





;»THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "TRAP" INSTRUCTION. 



ROUTINE 

. WORD 
$ TYPE 
STYPOC 
STYPOS 
STYPON 



STRAP2 
; ;CALL = TYPE 
; ;CALL=TYPOC 
; ;CALL=TYPOS 
; ;CALL=TYPON 



TRAP+K104401 ) 
TRAP+2(104402) 

TRAP+3U04403) 
TRAP + 4U04404) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 



016544 015544 



SGTSWR ; ;CALL=GTSWR 



TRAP+5(104405) GET SOFT-SWR SETTING 



015474 
015756 
016076 
015372 
013046 
013152 



SCKSWR 
SRDCHP. 
SRDLIN 
SRDOCT 



; ;CALL=CKSWR 
j jtCALL = RDCHR 
; ;CALL=RDLIN 

j ;CALL=RDOCT 

WAIT. ON .READY ; ;CALL 
WAIT. FOR. XFER ; ;CALL=WAITXFLR TRAP+ 1 3 ( 1 04 4 1 3 ) WAIT ON XFER REG 



TRAP*b(104406) 
TRAP+7(104407) 
TRAP+10( 104410) 
TRAP+1 1 (104411 ) 
sWAITREADY 



TEST FOR CHANGE IN SOFT-SWR 
TTY TYPE1N CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 
TRAP+12( 104412) WAIT ON THE READY BIT TO 
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DZTABC.NEW POWER DOWN AND UP ROUTINES 



3293 










, SBTTL 


POWER 


DOWN AND UP ROUTINES 




3294 




















3295 












3296 










; POWER 


DOWN ROUTINE 






3297 


016562 


012737 


01672b 


000024 


SPWRDN; 


MOV 


#$ILLUP, 3*PWRVEC 


; f SET 


FOR FAST UP 


3298 


016570 


012737 


000340 


000026 




MOV 


#340,9#PWRVEC+2 


;PRIO:7 


3299 


016576 


010046 








MOV 


R0,«(SP) 


,'PUSH 


R0 ON STACK 


3300 


016600 


0101 46 








MOV 


R1»-(SP) 


;PUSH 


Rl ON STACK 


3301 


016602 


010246 








MOV 


R2,-(SP) ; ;PUSH 


R2 ON STACK 


3302 


016604 


010346 








MOV 


R3,-(SP) 


} PUSH 


R3 ON STACK 


3303 


016606 


010446 








MOV 


R4,-(SP) ; ;PUSH 


R4 ON STACK 


3304 


016610 


0*0546 








MOV 


R5,-(SP) 


;PUSH 


R5 ON STACK 


3305 


016612 


017746 


162322 






MOV 


§SWR,»(SP) 


JPUSH 


@SWR ON STACK 


3306 


016616 


010667 


000110 






MOV 


SP,$SAVR6 


; SAVE 


SP 


3307 


016622 


012737 


016634 


000024 




MOV 


ISPWRUP, 9#PWRVEC 


J j SET 


UP VECTOR 


3308 


016630 


000000 








HALT 








3309 


016632 


000776 








BR 


e »2 


; HANG 


UP 


3310 




















3311 










• 










3312 










; POWER 


UP ROUTINE 






3313 


016634 


012737 


016726 


000024 


SPWRUPl 


MOV 


#SILLUP,9#PWRVEC 


?,'SET 


FOR FAST DOWN 


3314 


016642 


016706 


000064 






MOV 


SSAVR6,SP 


% GET 


SP 


3315 


016646 


005067 


000060 






CLR 


SSAVR6 


;WAIT 


LOOP FOR THE TTY 


3316 


016652 


005267 


000054 




l§: 


INC 


SSAVR6 


f WAIT 


FOR THE INC 


3317 


016656 


001375 








BNE 


1$ 


IOF 


WORD 


3318 


016660 


012677 


162254 






MOV 


CSPH,§SWR 


;POP 


STACK INTO eSWR 


3319 


016664 


012605 








MOV 


(SP)+,R5 


jPOP 


STACK INTO R5 


3320 


016666 


012604 








MOV 


(SP)*,R4 


5 POP 


STACK INTO R4 


3321 


016670 


012603 








MOV 


(SP)+,R3 


• POP 


STACK INTO R3 


3322 


016672 


012602 








MOV 


(SP)+,R2 


JPOP 


STACK INTO R2 


3323 


016674 


012601 








MOV 


(SP)+,R1 


;POP 


STACK INTO Rl 


3324 


016676 


012600 








MOV 


(SP)*,R0 


;POP 


STACK INTO R0 


3325 


016700 


012737 


016562 


000024 




MOV 


#$PWRDN,i#PWRVEC 


t t SET 


UP THE POWER DOWN VECTOR 


3326 


016706 


012737 


000340 


000026 




MOV 


8340, 3#PWRVEC+2 


;PRIO:7 


3327 


016714 


104401 








TYPE 




REPORT THE POWER FAILURE 


3328 


016716 


016734 






$PWRMG: 


.WORD 


SPOWER 


;POWER FAIL MESSAGE POINTER 


3329 


016720 


012716 








MOV 


(PC)+, (SP) 


; RESTART AT PWRST 


3330 


016722 


002206 






SPWRAD: 


„ WORD 


PWRST 


; RESTART ADDRESS 


3331 


016724 


000002 








RTI 








3332 


016726 


000000 






$ILLUP: 


HALT 


\ | THE 


POWER UP SEQUENCE WAS STARTED 


3333 


016730 


000776 








BR 


9 »2 


; BEFORE THE POWER DOWN WAS COMPLETE 


3334 


016732 


000000 






$SAVR6: 





; 5 PUT 


THE SP HERE 


3335 


016734 


005015 


047520 


042527 


SPOWER: 


9 ASCIZ 


<15><12>"POWER" 






3336 


016742 


000122 
















3337 












S EVEN 









TA11 BASIC LOGIC TEST (PART 2) 
DZTABC .NEW POWER DOWN AND 



MAINDEC-11-DZTAB-C 

UP ROUTINES 
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SEO 0083 



3338 


016744 


042200 


044522 


042526 


MSGDRV s 


. ASC I Z 


<CRLF>"DRIVE(S)? " 


3339 


016752 


051 450 


037451 


000040 








3340 


01 6760 


00501 5 


040524 


051503 


MSGASK ; 


» ASCIZ 


<15><12>/TACS?/ 


3341 


016766 


000077 












3342 


016770 


042526 


052 1 03 


05 1117 


MSGVEC * 


ASC IZ 


/VECTOR?/ 


3343 


016776 


00007 7 












3344 


01 7000 


05 1 1 20 


04751 1 


044522 


MSGPRI : 


.ASCIZ 


/PRIORITY?/ 


3345 


01 7006 


054524 


000077 










33 46 


017012 


040524 


051503 


000075 


MTACS ! 


ASC IZ 


/TACS=/ 


33 47 


1 7020 


052040 


042 10J 


036502 


MTADB : 


» ASCIZ 


/ TADB=/ 


















**4Q 


01 7027 




042526 


_ _ , 


MTA VEC * 


8 




3350 


a 1 1 at a 

V 1 IB J* 


051 1 17 


VWV' 1 3 










3 351 


01 7040 


kj 3 10 v *t <9 


044522 


05 1117 


MTAPP I ! 


» ASCIZ 


/ PFIORITYs/ 


3 352 


I 7046 




036531 










3 35 3 


01705 3 


015 


047 4 1 2 


03751 3 


* 


ASCIZ 


<15><12>/0K?/ 


















3 355 




131 


05 1 505 


0101017010) 


MYES! 


ASCIZ 


/YES/<CRLF> 


3356 






a47^00 


maa^oo 


EMI ; 


ASCIZ 


/STATUS PROBLEM/ 










046102 












046505 


aa 












Oil 71 a* 




042522 


042101 


• 


* 






: _ : 


02 H 3 1 


oid iciiti 

iO *t 3 «9 ** W 


044501 








* HI 


H! 7 t \ih 

ai 7 1 L 


oiiei a 




OH 1 J i *t 








3362 




y<71 *f *» " 


052 105 










3 36 3 


017133 


042 




047101 


EM3 : 


ASC I Z 


/"TRANSFER REQUEST 5 * FAILED TO SET/ 


3364 


017140 


04312 3 


05 1 1 05 


05 1040 








3 365 


017146 


050505 


042525 


052 1 23 












S3 4 low <* i 


sy *» *7 D 10 O 


Citm \ 7 








3367 


017162 


042105 


052040 










3 368 


017170 


042523 


000 124 










3369 




044124 


coon 


051 127 




* 


/tup URONft FT.&K CPT/ 


3 3 70 


017202 


047117 


020 107 


UiAf% \ Olfs 








3 371 


017 210 


04 3501 


05 1 440 


052105 








3372 
















3 3 7 3 


017 217 


104 


052101 


020 101 




* 


/DATA PROBLEM/ 


3 374 


017 224 


05 1120 


041117 


042514 












iavv i i 3 












3376 


017234 




042524 


051 122 


* 


8 


/INTERRUPT PROBLEM/ 


3 3 7 7 


017242 


0501 25 


020124 


05 1 1 20 








3 378 


017 250 




04251 4 


000 115 








3379 


1 7 256 


041 520 


020040 


020040 




o 


/PC tics/ 




«i lit! 


GO Gli/I A (A 


BlBJi * 


k73 J 310 J 








a ism 
















* j: 


01727 3 


120 


020103 


OOOlOt AOt 




e 


/pr Tars u> tt innRr^*;/ 


3383 


017 300 


V i V t) *f XI 


a K i oi & oi 
SO -3 Z 10 "t iy 


041501 








3 38 4 


017 306 




lO £. v v t vj 


053440 








3385 




04 450 1 












33 86 


017 322 


05 1104 


05 1505 


000 123 








3387 


017 330 


041520 


020040 


020040 


DH5 : 


.ASCIZ 


/PC TAGS EXPECT RCV'D/ 


3388 


017336 


020040 


040524 


051503 








3389 


017344 


020040 


020040 


054105 








3390 


017352 


042520 


052103 


020040 








3391 


01 7363 


041522 


023526 


000104 








3392 


017366 


041520 


020040 


020040 


DH6 ! 


.ASCIZ 


/PC TACS BR LEVEL/ 


3393 


017374 


020040 


040524 


051503 
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DZTABC. NEW POWER DOWN AND UP ROUTINES 



3394 


017402 


020040 


020040 


051102 










3 395 


017 410 


046040 


053105 


046105 










3396 


017416 


000 














3397 




017420 






.EVEN 








3398 


01 7420 


001116 


001162 


000000 


DTI : 


. WORD 


SERRPC 


«SREG0#0 


3399 


017426 


001116 


001162 


001202 


DT2: 


.WORD 


SERRPC 


, SREG0,SAVPC,0 


3400 


017434 


000000 














3401 


017436 


001116 


001 162 


001124 


UT5 ! 


« WORD 


SERRPC 


, SREG0* SGDDAT* SBDDAT 


3402 


017444 


001126 


000000 












3403 


01 7450 


001116 


001 162 


001 124 


DT6: 


.WORD 


SERRPC 


, SREG0» SGDDATr 


3404 


017456 


000000 














3405 


017460 


001116 


001206 


000000 


DT201: 


, WORD 


SERRPC 


,TACSL,0 


3406 


















3407 


017466 


001116 


000000 




DT202: 


.WORD 


SERRPC 


*0 


3408 


















3409 


017472 


040524 


030461 


043040 


EM201 : 


8 ASC1Z 


"TAll 


FAILED TO RESPOND" 


3410 


017500 


044501 


042514 


020104 










3411 


017506 


047524 


051040 


051505 










3412 


017514 


047520 


042116 


000 










3413 


017521 


116 


020117 


051104 


EM202: 


.ASCIZ 


"NO DRIVE AVAILABLE" 


3414 


017526 


053111 


020105 


053101 










3415 


017534 


044501 


040514 


046102 










3416 


017542 


000105 














3417 


017544 


041520 


020040 


020040 


DH201 : 


.ASCIZ 


/PC 


TAGS/ 


3418 


017552 


020040 


040524 


051503 










3419 


017560 


000 














3420 


017561 


120 


000103 




DH202: 


,ASCIZ 


/PC/ 




3421 




000001 








„END 







TAH BASIC LOGIC 


TEST 


(PART 2) 


MAINUtL™ 


1 1-DZTAB 


-C 




DZTABC # NEW 


CROSS 


Rtrc.RR.NCc. 


TABLE 


USER SYMBOLS 




ASKAOR 


013364 




563 


2512# 








ASKDRV 


013254 








2503 






ASKKEY 


001232 




a Qfia 




681 






BEGINX 


001740 






s;aa 


595 


644 


646 


BEGIN! 


001 336 




231 










BEG IN 2 


001370 




232 


aq as 

In* 








BEGIN3 


001376 




233 


482 


485# 






BEGIN4 


001404 




234 


487S 








BGNCMN 


001410 




479 


481 


484 


486 


488# 


BIT0 s 


000001 




166# 










BIT00 = 


000001 








208 


2588 




BIT01 a 


000002 






165 


207 


2597 


2918 


BIT02 = 


000004 




lea* 


164 


206 






BIT03 s 


000010 






163 


205 






BIT04 = 


000020 




1 52# 


162 


204 






BIT05 s 


000040 




151S 


161 


203 






BIT06 a 


000100 




150# 


1 60 


202 






BIT07 s 


000200 






159 


201 


2916 


2918 


BIT08 s 


000400 




I 48 # 


158 


200 


2298 




BIT09 a 


001000 






157 


199 


2306 




BIT1 a 


000002 




1 65 if 










BIT10 = 


002000 




1 46S 


198 


2354 






BITU a 


004000 




1 45 # 


1 97 


2313 






BIT12 = 


010000 






1 96 








BIT13 a 


020000 




1 43# 


1 95 


2361 






BIT14 = 


040000 






194 


2284 


2597 




BIT15 a 


100000 






193 


662 






BIT2 a 


000004 




1 64# 










BIT3 a 


000010 




163# 










BIT4 = 


000020 




* t ? * 










BIT5 a 


000040 














BITS = 


000100 




ten 










BIT7 a 


000200 




1 59 # 










BIT8 a 


000400 




158# 










BIT9 a 


001000 




1 57 # 










BLKL1M 


014654 




2820* 


2834S 


2841 


2858 




BPTVECa 


000014 




1 7 3 V 










BSBG a 


000010 








1505 


1589 


162 








2024 


2163 


2186 






BSFG = 


000006 




1 85 # 


864 


1447 


1562 


1676 


BSFGSB 


014512 








2795 


2802 




CHKADR 


001762 




c c n 

559 


562 


581 # 






CHKDRV 


002046 














CKSWR a 


104406 




2283 


2346 


2369 


3287# 




CR a 


000015 




8 1 # 




2995 






CRCERRa 


040000 








1916 


1992 




CRC .WD 


013774 




2028* 


ao 
2038 


2046 


2585 


aa !o 


CRLF a 


000200 






545 


2956 


2995 




CURDRV 


001234 








675 






DDISP a 


177570 




QO 


365 


516 






DHt 


017256 




Ai fl 










DH2 


017273 




424 


^430^ 


436 


3382« 




DH201 


017544 




456 


34178 








DH202 


017561 




461 


34208 








DH5 


017330 




442 


3387# 








DH6 


017366 




448 


33928 
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1680 
1731 



2613$ 
3355 



1778 
1739 



1783 
1928 



1814 
2797 



TA1 1 BASIC LOGIC TEST 


(PART 2) 


MAINDEC- 


1 1-DZTAB 


-C 




MACY11 


27(732) 


ii-JUN- 


76 13:26 


PAGE 


73 




SEC 


DZTABC. NEW CROSS 


REFERENCE 


TABLE — 


USER SYMBOLS 




















DISPLA 


001 142 


365# 


516* 


524* 


2327* 


2353* 


















DISPRE 


000174 


228# 


524 
























DO.CRC 


013654 


2029 


2578«f 
























DRVKEY 


001224 


394# 


395 


477* 


620 


633 


654 


679 


2075 


2128 


2481* 


2486 


2500 


2504 






2890 


























DRVPNT 


001230 


395« 


634* 


654* 


665 


680* 


2884 


2891* 














DSWR = 


177570 


87# 


364 


515 






















DTI 


017420 


419 


3398# 
























DT2 


017426 


425 


431 


437 


33998 




















DT201 


017460 


457 


3405# 
























DT202 


017466 


462 


3407# 
























DT5 


017436 


443 


34011 
























DT6 


017450 


449 


34031 
























EMTVECa 


000030 


176# 


499* 


500* 






















EMI 


017066 


417 


3356# 
























EM2 


017105 


423 


3359# 
























EM201 


017472 


455 


3409# 
























EM202 


017521 


460 


34131 
























EM3 


017133 


429 


3363S 
























EM4 


017174 


435 


3369# 
























EMS 


017217 


441 


33738 
























EM6 


017234 


447 


3376# 
























ERROR a 


100000 


193# 


1538 


1567 


1736 


1741 


1780 


1873 


2052 












ERRVECa 


000004 


169# 


513 


514* 


525* 


581* 


587* 


2289 


2290* 


2292* 


2295* 








EXAM 


015046 


621 


625 


630 


2903# 




















EXIT 


013354 


2499 


2504# 
























FGAP a 


004000 


1971 


1449 


1483 


1538 


1564 


1598 


1629 


1660 


1728 


1733 


1775 


1780 




FUNCTIa 


000016 


209# 


























FUNC0 a 


000002 


207# 


209 
























FUNC1 a 


000004 


206# 


209 
























FUNC2 a 


000010 


2058 


209 
























GNS a 




227 


544 


672 


3280 


3281 


3282 


3283 


3285 


3287 


3288 


3289 


3290 


3291 






3292 


























GO a 


000001 


208# 


303 


306 


325 


328 


693 


710 


712 


731 


733 


771 


773 


782 






784 


823 


825 


827 


1292 


1295 


1303 


1335 


1366 


1368 


1371 


1437 


1439 






1441 


1447 


1467 


1469 


1471 


1477 


1479 


1481 


1495 


1497 


1499 


1505 


1522 






1524 


1526 


1532 


1534 


1536 


1554 


1556 


1562 


1579 


1581 


1587 


1589 


1591 






1593 


1610 


1612 


1618 


1620 


1622 


1624 


1642 


1644 


1646 


1654 


1656 


1658 






1710 


1712 


1714 


1722 


1724 


1726 


1731 


1739 


1757 


1759 


1761 


1769 


1771 






1773 


1778 


1783 


1804 


1806 


1814 


1816 


1839 


1841 


1844 


1859 


1861 


1889 






1891 


1893 


1902 


1904 


1957 


1959 


1967 


1969 


2004 


2006 


2009 


2024 


2026 






2086 


2136 


2138 


2142 


2152 


2163 


2168 


2186 


2193 


2205 


2230 


2636 


2639 






2668 


2691 


2722 


2725 


2750 


2756 


2778 


2781 


2797 


2842 


2860 






GTSWR a 


104405 


539 


687 


2812 


2825 


2831 


3285# 
















HERE 


001740 


530 


532 


543 


545# 




















HGHTIM 


013124 


714 


2423* 


2437# 






















HT a 


000011 


79# 


2954 


2995 






















ILBS = 


000020 


204* 


780 


806 


1445 


1475 


1503 


1530 


1560 


1585 


1616 


1652 


1720 


1767 






1812 


1828 


1854 


1871 


1900 


1911 


1965 


1987 


2019 


2040 


2158 


2181 


2218 






2850 


2871 
























INT,EN= 


000100 


202# 


922 


970 


1018 


1066 


1114 


1162 


1210 


1258 


1303 


1335 


1398 




lOTVECa 


000020 


174# 


497* 


498* 






















ITEMS2 


001316 


453# 


























LEADERS 


020000 


195# 


1455 


1510 


1538 


1567 


1744 


1780 


1788 


2641 


2672 


2695 


2727 


2730 






2754 


2758 


2783 


2799 


2921 


















LF a 


000012 


80# 


2989 


2995 























TA11 BASIC LOGIC 


TEST 


( PART 2) 


MAINDEC- 


1 1-oDZTAB 


«C 




DZTABC.NEW 


CROSS 


REFERENCE 


TABLE — 


USER SYMBOLS 




LOOP 


1 3 300 




24873 


2501 








LOOP1 


000500 




291# 


292 








L00P2 


000600 




30H 


312 








LOOP3 


000700 




3238 


334 








MANUAL 


002 166 




640 


648# 








MAXCNT 


013 150 




662« 


714* 


7 15* 


716* 


717* 


MSGASK 






2513 


3340# 








MSGDRV 






2480 


3338S 








MSGID 


001 7 1 2 




533 


5458 


653 






MSGOK 


01 705 3 




2560 


3353# 








MSGPRI 


01 7000 




2536 


3344# 








HSGVEC 


0167 70 




2527 


3342S 








MTACS 






2548 


33461 








MTADB 


C1 1 "1 d Id 




2551 


3347# 








MTAPR I 


d 1 7 d AM 




2557 


3351S 








MTAVEC 






2554 


3349f 










CM l! il 




2569 


3355S 














2490 


2494 


2498# 








013 312 




2488 


2491S 








NOTB 


013324 




2492 


2495# 








NOTLGL 


013346 




2485 


2496 


2502S 


2505 




NXTDRV 


015 00 2 




2634 


2666 


2689 


2720 


2748 


OFFLIN- 


low 1 <oV)v 




199# 


2912 










002200 




649 


65H 








PATTRN 


f 77772 




2821* 


2827* 


28358 


2848 


2859 








86# 










PI RQVEs 


acid •> aji 

VOW t.'kx) 




180» 












Uvvx/vVl 




103# 










PR1 = 


Ot 01 CI 01 Ad 
WWlfo flu 




104# 










PR2 = 


add 1 dd 




105# 










PR3 = 


000 1 40 




106if 










PR4 s 


000200 




1078 










PR5 = 


dad J AiA 




108# 












ddd 3dd 
VvV 3Vxf 




109# 










PR7 - 


ddd 1 Ad 




110# 










PS - 


177776 




83 s 


84 


657* 


914* 


923* 








1067* 


1070* 


1 1 06* 


1115* 


1118* 








1262* 


1297* 


1 305* 


1 309* 


1327* 


PSW = 


177776 




84# 










PWRST 






653# 


3330 








PWRVEC= 


000024 




175# 


503* 


504* 


3297* 


3298* 


RDBLK, 






2694 


2753 


2858S 






RDCHR r 


104 407 




2561 


3146 


3 2 8 8 # 






RDLIN a 


104410 




2482 


3010 


3289 # 






RDOCT s 


0^4150 




2514 


2528 


25 37 


3290# 




rdsub 






237 


26848 


2688 


2696 




READ = 


000004 




184# 


328 


784 


860 


1593 








2860 










READY = 


0000 40 




203# 


304 






333 








2457 


2637 


2669 


2692 


2723 


RESVEC= 


000010 




170# 










REWINDS 


000016 




189S 


303 


325 


693 


710 








1437 


1467 


1479 


1495 


1522 








1724 


1757 


1771 


1804 


1839 








2142 


2193 


22 30 


2636 


2668 


RGPRLK 


014332 




239 


2743# 


2747 


2755 


2759 


TA1 1 BASIC LOGIC 


TEST 


(PART 2) 


HAINDEC- 


11-DZTAB 


»C 




DZTABC. 


NEW 


CROSS 


REFERENCE 


TABLE »- 


USER SYMBOLS 




SAVPC 


001202 




*• 385 # 


2424* 


2425* 


2441 


2452* 


SAVPS 


001204 




386S 


2426* 


2440 


2454* 


2468 


SETBUF 


014544 




2660 


2714 


2808# 






SFBG = 


000014 




1888 


876 


1536 


1591 


1622 


SFFG = 


000012 




187# 


872 


1481 


1658 


1684 


SFFGSB 


014426 




240 


2771# 


2775 


2786 




STACK = 


001100 




74S 


495 


2629 


2661 


2684 


START 


002220 




652 


655S 


2264 






STKLMTs 


177774 




85# 










SWR 


001 140 




291 


309 


364S 


493 


515* 








2313 


2354 


2361 


2366 


2370 








2918 


3043 


3080* 


3305 


3318* 


SWREG 


000176 




229# 


523 


537 


685 


2810 


SW0 s 


000001 




138# 










SW00 s 


000001 




12811 


138 








SW01 = 


000002 




127# 


137 








SW02 s 


000004 




126# 


136 








SW0 3 = 


000010 




125# 


135 








SW04 s 


000020 




124# 


134 








SW05 = 


000040 




123# 


133 








SW06 s 


000100 




122S 


132 








SW07 = 


000200 




1 21 # 


131 








SW08 = 


000400 




1208 


130 








SW09 s 


001000 




119# 


129 








SWl » 


000002 




137# 










SW10 = 


002000 




118$ 










SWll a 


004000 




117# 










SW12 = 


010000 




116# 










SW13 a 


020000 




115S 










SW14 s 


040000 




1140 










SW15 a 


100000 




1133 










SW2 = 


000004 




136# 










SW3 = 


000010 




1351 










SW4 = 


000020 




1341 










SW5 s 


000040 




133* 










SW6 s 


000100 




1328 










SW7 = 


000200 




1319 










SW8 s 


000400 




130# 










SW9 s 


001000 




129S 










TACSH 


001210 




389# 


2522* 


2523* 






TACSL 


001206 




388S 


583 


658 


2519* 


2522 








3405 










TADBH 


001214 




391# 


2525* 


2526* 






TADBL 


001212 




390# 


659 


2521* 


2525 


2552 


TAPRIO 


001222 




393# 


929 


933 


977 


981 








1217 


1221 


1265 


1269 


2547* 


TAVEC 


001216 




392# 


480 


597* 


655* 


656$ 








1014* 


1015* 


1039* 


1040* 


1062* 








1 159* 


1183* 


1184* 


1206* 


1207* 








1315* 


1316* 


1331* 


1332® 


1353* 








2555 










TBITVEs 


000014 




171# 










TDRV 


002310 




667 


669? 








TIMERRs 


002000 




198S 


759 


811 


849 




TKVEC = 


000060 




i78# 










TPVEC a 


000064 




179# 
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2423 2444S 2451 



2776 288l# 



926* 


962* 


971* 


974* 


1010* 


1019* 


1022* 


1058 


1154* 


1163* 


1166* 


1202* 


1211* 


1214* 


1250* 


1259 


1342* 


1346* 


J 396* 


1401* 


1412* 


1415* 






3307* 


3313* 


3325* 


3326* 










1672 


1816 


1861 


1904 


1969 


2026 


2168 


2205 


694 


1336 


2093 


2097 


2102 


2149 


2201 


2427 


2751 


2779 


2844 


2862 


2908 








731 


771 


782 


823 


880 


1292 


1335 


1366 


1534 


1554 


1579 


1610 


1642 


1656 


1692 


1710 


1889 


1944 


1957 


2004 


2086 


2096 


2101 


2136 


2691 


2722 


2750 


2778 
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2453* 


2469 


3399 












1624 


1688 


1940 


2756 










1726 


1773 


1936 


2781 










2715 


2743 


2771 












517 


523* 


537 


685 


2284 


2298 


2300 


2306 


2810 


2814 


2816 


2823 


2827 


2829 


2881 


2916 


2823 


2829 


3043 


3056 










2549 


2630 


2662 


2685 


2716 


2744 


2772 


2903 


2631 


2663 


2686 


2717 


2745 


2773 






1025 


1029 


1073 


1077 


1121 


1125 


1169 


1173 


2558 
















918* 


919* 


943* 


944* 


966* 


967* 


991* 


992* 


1063* 


1087* 


1088* 


1110* 


llil* 


1135* 


1136* 


1158* 


1231* 


1232* 


1254* 


1255* 


1279* 


1280* 


1299* 


1300* 


1354* 


1391* 


1392* 


1410* 


1420* 


1421* 


2533* 


2535* 



TA1 1 BASIC LOGIC TEST (PART 2) MAINDEC-1 1 -DZTAB-C 
DZTABC , NEW CROSS REFERENCE TABLE USER SYMBOLS 
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SEQ 0089 



TRAPVEs 


000034 


177# 


501* 


502* 






















TRTVEC= 


000014 


172* 


























TR » REQs 


000200 


201 # 


1 336 
























TST1 


002436 


691 


704* 
























TST10 


004150 


1053# 


























TSTU 


004352 


1 101 # 


























TST12 


004554 


1149* 


























TST13 


004756 


1197# 


























TST14 


005160 


1245S 


























TST15 


005362 


12863 


























TST16 


005554 


1322* 


























TST17 


005750 


1360# 


























TST2 


002516 


707 


725* 
























TST20 


006246 


1431# 


























TST21 


006370 


1434 


1456 


1461 * 






















TST22 


006510 


1464 


1484 


1489# 






















TST23 


006622 


1492 


1511 


1516# 






















TST24 


006742 


1519 


1539 


1548* 






















TST25 


007050 


1551 


1568 


15731 






















TST26 


007176 


1576 


1599 


16049 






















TST27 


007324 


1607 


1630 


1635* 






















TST3 


002656 


728 


760 


765# 






















TST30 


007574 


1638 


1694 


1703* 






















TST31 


010000 


1706 


1745 


1750* 






















TST32 


010172 


1753 


1789 


17988 






















TST33 


010330 


1801 


1833S 
























TST34 


010516 


1836 


1874 


1883S 






















TST35 


010776 


1886 


1946 


19518 






















TST36 


01 1 160 


1954 


1993 


1998* 






















TST37 


011412 


2001 


2053 


2071* 






















TST4 


003062 


768 


812 


817# 






















TST40 


011552 


2074 


2076 


2124* 






















TST41 


012134 


2127 


2129 


2221 


2226ft 




















TST5 


003342 


820 


882 


909# 






















TST6 


003544 


9578 


























TST7 


003746 


10058 


























TYPE s 


104401 


533 


653 


670 


675 


676 


2254 


2356 


2364 


2386 


2395 


2397 


2400 


2402 






2406 


2414 


2480 


2502 


2513 


2527 


2536 


2548 


2551 


2554 


2557 


2560 


2567 






2569 


2959 


3054 


3055 


3058 


3071 


3082 


3101 


3150 


3153 


3157 


3232 


3280s 






3327 


























TYPEPR 


012730 


2363 


2386# 
























TYPOC s 


104402 


2411 


2550 


2553 


2556 


2559 


3057 


3281? 














TYPON s 


104404 


3283$ 


























TYPOS = 


104403 


32821 


























UNIT = 


000400 


200# 


668 


2079 


2080 


2132 


2133 


2887 


2907 












WAITREs 


104412 


711 


713 


732 


755 


772 


781 


783 


807 


824 


826 


845 


1293 


1296 






1330 


1367 


1369 


1409 


1438 


1440 


1446 


1448 


1468 


1470 


1476 


1478 


1480 






1482 


1496 


1498 


1504 


1506 


1523 


1525 


1531 


1533 


1535 


1537 


1555 


1561 






1563 


1580 


1586 


1588 


1590 


1592 


1594 


1611 


1617 


1619 


1621 


1623 


1625 






1641 


1643 


1645 


1653 


1655 


1657 


1659 


1709 


171 1 


1713 


1721 


1723 


1725 






1 727 


1732 


1740 


1756 


1758 


1760 


1768 


1770 


1772 


1774 


1779 


1784 


1805 






1813 


1815 


1829 


1840 


1842 


1855 


1860 


1872 


1890 


1892 


1901 


1903 


1912 






1958 


1966 


1968 


1988 


2005 


2007 


2020 


2025 


2047 


2083 


2085 


2105 


2137 






2139 


2141 


2159 


2164 


2182 


2187 


2192 


2204 


2219 


2231 


2640 


2726 


2757 






2782 


2798 


2851 


2872 


3291 * 


















WAITxF= 


104413 


734 


775 


777 


785 


823 


1304 


1372 


1442 


1444 


1472 


1474 


1500 


1502 



TA11 BASIC LOGIC 


TEST 


(PART 2) 


MAINDEC- 


1 1-DZTAB 


-C 




MACY11 


27(732) 


1 1-JUN 


-76 13:26 


PAGE 


77 




SEQ 


DZTABC. NEW 


CROSS 


REFERENCE 


TABLE — 


USER SYMBOLS 


























1527 


1529 


1557 


1559 


1582 


1584 


1613 


1615 


1647 


1649 


1651 


1715 


1717 








1719 


1762 


1764 


1766 


1807 


1809 


1811 


1817 


1823 


1845 


1847 


1863 


1870 








1895 


1906 


1960 


1962 


1964 


1970 


1975 


1979 


1983 


2010 


2012 


2030 


2039 








2153 


2155 


2157 


2169 


2175 


2180 


2206 


2212 


2217 


2843 


2861 


3292* 




WAIT.F 


013152 




2449* 


3292 






















WAIT.O 


013046 




2421 * 


3291 
























WAIT! 


01 3076 




2427# 


2435 


2438 






















WAIT2 


013116 




2422* 


24348 
























WAIT3 


013132 




2428 


2432 


2440* 






















WAIT4 


013114 




2430 


2433* 
























WFG = 


000000 




182# 


712 


825 


852 


1295 


1368 


1439 


1469 


1477 


1497 


1524 


1532 


1587 








1618 


1644 


1654 


1664 


1712 


1722 


1759 


1769 


1841 


1891 


1920 


2006 


2138 








2639 


2725 






















WFGSUB 


013776 




235 


26298 


2633 


2644 




















WGBLOP 


014234 




27 15# 


2719 


2733 






















WGPBLK 


01 4230 




238 


2714* 
























WLOOP 


014066 




2661* 


2665 


2675 






















WRITE s 


000002 




183S 


306 


733 


773 


827 


856 


1303 


1371 


1441 


1471 


1499 


1526 


1556 








1581 


1612 


1646 


1668 


1714 


1761 


1806 


1844 


1893 


1924 


1959 


2009 


2152 








2842 


























WPTBLK 


01 4660 




2671 


2729 


2841* 






















WRTLOC= 


010000 




196* 


2914 
























WPTSUB 


01 4062 




236 


2660# 
























SAUTOB 


001134 




361* 


541* 


3051 


3172 




















SBDADR 


001122 




3568 


























SBDDAT 


001 126 




358# 


2350* 


3401 






















SBELL 


001172 




380# 


2356 


2382 






















SCHARC 


015366 




2961# 


2971* 


2978 


2987* 


2992# 


















SCKSWR 


015474 




3043* 


3287 
























SCMTAG 


001 100 




344« 


490 


491 


499 


505 


506 


507 














SCMl s 


000002 




376* 


377* 


378* 






















$CM2 s 


000004 




376* 


3778 


378* 






















$CM3 s 


000002 




3748 


376 
























SCNTLG 


016221 




3054 


31674 
























SCNTLU 


016214 




3071 


31668 
























SCRLF 


001 177 




382* 


676 


2364 


2382 


2386 


2397 


2402 


2406 


2960 


2995 


3082 


3166 




SDOAGN 


012242 




2250 


2256 


2262# 






















SENDAD 


012232 




531 


596 


647 


2258* 


2377 


















SENDCT 


012212 




505 


22528 
























SENDMG 


012251 




2254 


2266$ 
























SENULL 


012246 




2265* 


























$EOP 


012156 




2242* 


























SEOPCT 


012204 




505* 


2249$ 


2253 






















$ERFLG 


001103 




347# 


2273 


2302 


2304 


2310* 


2331 


2351* 


2382 












SERMAX 


001115 




353# 


508» 


2304 


2326* 


2331 


















SERROR 


012536 




499 


23458 
























SERRPC 


001 1 16 




354* 


2358* 


2359* 


2360 


2382 


3398 


3399 


3401 


3403 


3405 


3407 






SERRTB 


001236 




412* 


2393 
























SERTTL 


001112 




35H 


2357* 


2382 






















SESCAP 


001170 




379« 


507* 


728* 


768* 


820* 


911* 


959* 


1007* 


1055* 


1103* 


1151* 


1199* 


1247* 








1289* 


1324* 


1363* 


1434* 


1464* 


1492* 


1519* 


1551* 


1576* 


1607* 


1638* 


1706* 


1753* 








1801* 


1836* 


1886* 


1954* 


2001* 


2074* 


2127* 


2325* 


2373 


2375 


2382 






SFILLC 


001 156 




372# 


2964 


2995 




















8FILLS 


001155 




371* 


2995 
























$GOAOR 


001120 




355# 


























SGDDAT 


001124 




357# 


2349* 


3401 


3403 





















i 



TA1 1 BASIC LOGIC TEST 


I PAH T 2 ) 


MAlNUe.l. , " 


11-DZTAB 


-C 




MACY1 1 


27(732) 


1 1 -JUN- 


76 13:26 


PAGE 


78 


OZT ABC . 


*JEW 


CROSS 


D G* tP F D IT M ("* C* 

Kir tutrn, c 


TABLE 


USER SYMBOLS 
















SGET42 


012222 


























5 vjTSWK 


015544 




3055# 


3285 






















000000 


























S H I OC T 






3027* 


30328 






















ma 1 i ex a 
vxj l I so 1 




348 # 


2317* 


2318 


2320* 
















S I LLUP 






3297 


3313 


3332# 




















00 1135 




362# 


3083 


3172 


















$ I TEMB 


001 114 




35 2S 


oiflf * 


2382 


2388 
















$LF 


001 200 








2995 


3157 
















$ LPADR 


001 106 




aAQs 


Rao 


727* 


767* 


819 


9 1 0* 


958* 


1 006* 


1054* 


i 102* 


1150* 








1 TOO 




1433* 


1463* 


1 49 1 * 


1518® 


1550* 


1575* 


1 606* 


1637* 


1705* 








! Q K 


1885* 


1953* 


2000* 


207 3* 


2126* 


2308* 


2323* 


2328 


2330 




$LPERR 


001 1 10 






510* 


2308 


2324® 


2330 


2372 


2633* 


2665* 


2688* 


2719* 


2747* 


3MAIL s 


****** 


u 


^ ' 




2323 


2366 


2948 














$MNEW 


016237 


























$MSWR 


01622b 






^ * * 




















SMXCNT 


0125 34 




2 321 


2330S 




















$NULL 


001 154 








2995 


















INWTSTs 


000001 






t, 


762# 


8141 




954# 


1002$ 


1 050# 


1098 # 


1 1 46# 


1194# 








1319s 


1 357 If 


1428# 


1458* 


1 486# 


15130 


1545# 


1570# 


1601 # 


1632S 


17008 








1 8 30# 


1 880# 


1948# 


19953 


2068# 


2 1 2 1 # 


2223# 










SOCNT 


016472 




3204* 


3233* 


32468 


















SOMODE 


016474 






3203* 


3208 


3211* 


3222* 


3248 9 












SOVER 


012520 




2285 


2301 


2309 


2319 


2327S 














$PASS 


001 100 






a aaeL 


706 


2246® 


2247* 


2265 


2315 


2331 








$P0WER 


0167 34 






3 J35S 




















$PfcRAD 


016722 


























SPWPDN 


016562 




5»3 


3297 # 


3325 


















SPWRMG 


016716 




3328# 






















$ PwlRUP 


01 6634 




3 307 


3 3 1 3 * 




















$ QUES 


001 176 




3 8 1 # 


2382 


2502 


2567 


2995 


3101 


3150 


3166 








SRDCHR 


015756 






3288 




















$RDDEC= 


****** 


u 


3 291 






















SRDUN 


016076 




31421 


5289 




















SRDOCT 


015372 




3005 # 


3290 




















SRDSZ ~ 


000010 




3 1 35 # 






















SREGAD 


001 1 60 


























$REG0 


001 162 








3398 


3399 


3401 


3403 












SREGl 


001 164 






2348* 




















SRTNAD 


012244 


























SR2A = 


***«*» 


u 
























$SAVR£= 


****** 


u 


aoa» 






















$ SA VR6 


016732 




3306* 


3314 


3315* 


3316* 


33348 














$ SCOPE 


01 2264 




497 






















S SETUPs 


000 13 7 




476 # 




497 


499 








506 


507 


509 


531 








228 3 




2369 


2377 


aaaa 


ai i7 

3172 












I c< i * 






476# 






















$ S V LAD 


12 7 




229 3 


2J22S 




















$SWR s 


167 400 




1 # 


1 1 


62 


63 


64 


_ 








378 


379 








507 




510 


705 




766 


818 




958 


1006 


1054 








1 198 


1246 


1287 


1323 


1361 


1432 


1462 


1490 


1517 




1574 








1704 


1751 


1799 


1834 


1884 


1952 


1999 


2072 


2125 


2227 


2237 








2263 


2265 


2274 


2275 


2276 


2277 


2278 


2284 


2296 


2298 


2299 








2304 


2311 


2312 


2313 


2324 


2327 


2330 


2337 


2338 


2339 


2340 








2361 


2366 


2370 


2382 


3331 














$SWRMK= 


000000 




68 


69 


2278 


2279 


2300 















1198* 
1752* 



1246* 
1800* 



2775* 2795* 



1242$ 
1747* 



1283# 
17958 



380 
1102 
1605 
2245 
2302 
2341 



506 
1150 
1636 
2257 
2303 
2354 



TAl 1 BASIC LOGIC TEST 


( PART 2) 


MA1NDEC- 


il»DZTAB 


»C 




MACYU 


27(732) 


H»JUN» 


76 13:26 


PAGE 


79 




SEQ 


DZTABC .NEW CROSS 


REFERENCE 


TABLE ■»«. 


USER SYMBOLS 




















STIMES 


001 166 


378S 


506* 


705* 


726* 


766* 


818* 


1287* 


1323* 


1361* 


1432* 


1462* 


1490* 


1517* 






1549* 


1574* 


1605* 


1636* 


1704* 


1751* 


1799* 


1834* 


1884* 


1952* 


1999* 


2072* 


2125* 






2227* 


2245* 


2311* 


2318 


2321* 


2330 
















$ TKB 


001146 


367# 


3036 


3047 


3064 


3118 


3124 
















$TKS 


001144 


3661 


3036 


3045 


3061 


3085* 


3116 


3122 














STN s 


000042 


1# 


U 


701 


705# 


707 


722 


7268 


728 


760 


762 


766# 


768 


812 






814 


818# 


820 


882 


906 


910# 


954 


958# 


1002 


1006;? 


1050 


1054* 


1098 






1102# 


1146 


11508 


1194 


H98S 


1242 


12468 


1283 


1287* 


1319 


1323* 


1357 


1361# 






1428 


1432# 


1434 


1456 


1458 


1462S 


1464 


1484 


1486 


1490# 


1492 


1511 


1513 






1 5 1 7# 


1519 


1539 


1545 


15498 


1551 


1568 


1570 


1574# 


1576 


1599 


1601 


1605$ 






1607 


1630 


1632 


1636s 


1638 


1694 


1700 


17049 


1706 


1745 


1747 


1751* 


1753 






1789 


1795 


1799S 


1801 


1830 


18343 


1836 


1874 


1880 


1884!* 


1886 


1946 


1948 






1952* 


1954 


1993 


1995 


1999# 


2001 


2053 


2068 


2072# 


2074 


2076 


2121 


2125f 






2127 


2129 


2221 


2223 


2227* 


















$TPB 


001152 


369# 


2984* 


2995 






















STPFLG 


001 157 


373# 


2942 


2995 






















$TPS 


001150 


368# 


2982 


2995 






















STRAP 


016476 


501 


3257# 
























STRAP2 


016520 


3268# 


3279 
























STRP s 


000014 


3272* 


3281 * 


3282* 


32839 


3284# 


3285 


32H6I 


3287 


3288* 


3289# 


32908 


3291# 


3292# 






32938 






















STRPAD 


016532 


3262 


3279* 
























$ TSTNM 


001102 


346# 


663* 


2244* 


2273 


2300 


2322* 


2327 


2331 


2353 


2382 








STTYIN 


016204 


3143 


3144 


3161 


3165# 




















STYPBNs 




3284 


























$TYPDS= 


(j 


3284 


























ST2PE 


015152 


2942# 


3272 


3280 






















STYPEC 


015322 


2963 


2970 


2977 


2982# 


2983 


3087 
















STYPEX 


015370 


2988 


2990 


29931 






















STYPOC 


016274 


3202S 


3281 
























STYPON 


016310 


3201 


3204# 


3283 






















STKPOS 


016250 


3197# 


3282 
























SXTSTR 


012276 


2287# 


























SSGET4= 


000000 


2257# 


























S0FILL 


016473 


3198* 


3202* 


3212 


3247# 




















S40CAT2 




2284 


2363 


























017564 


223# 


227$ 


289# 


299# 


3218 


3439 


384 


494 


509 


510 


545* 


673* 


2265 






2268 


2330 


2331 


2382 


2417# 


2995 


3036 


3165# 


3166 


3172 


3309 


3333 


3397# 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED : 

*TABC,TABC/SOL/CRF:SYM=DZTABC r NEW 
RUN-TIME: 50 39 3 SECONDS 
PUN-TIME RATIO: 346/94=3.6 
CORE USED : 25K (49 PAGES) 




ENGINEERING 
CHANGE ORDER 



ORIGINATOR 
TEL EXT 
LOCATION 
COST CENTER NO. 



0. Choate 



4088 date 17 AUG 76 



ML21-4/E10 



301 



eco no. MD~tl-J>2fmft~ 

SHEE T T OF 2 ~~ 



.OF _ 
DATE RECEIVED 
ISSUE DATE 
FINAL RELEASE 



PROBLEM 

Tests # 37 and # 40 of DZTABC fail when run on 11/70 with CACHE 
Memory enabled. 



CORRECTION /DEPO 

I" 

Install patch to diagnostic 



UNIT TO BE CHANGED 



MD-11-DZTABC 



PRODUCT AFFECTED 



TA11 



TYPE OF ECO 

□ HARDWARE 
pi SOFTWARE 

□ PURCHASE 
SPEC. 



BREAK-IN/EFFECTIVITY 



immediately 



FIELD SERVICE 
AFFECTED 

YES □ NO 

|F| D, P. R DISTR. 



L.O.U.CODE 



WHERE USED 



QUICK-CHECK 



TEST 



DOCUMENT/PART NO. 



OLD 
REV 



NEW 

REV 



DESCRIPTION OF CHANGE/DISPOSITION OF MATERIAL 



MD-ll-DZTAB 
MD-ll-DZTAB 



N/A 



No document change 



CHANGE LOCATION 


FROM 


TO 


11500 


6301 


4737 


11502 


1001 


17600 


11506 


32714 


240 


11510 


40 


240 


11512 


1372 


240 


11652 


6301 


4737 


11654 


1003 


17600 


1166<I» 


32714 


240 


11662 


40 


240 



APPROVAL SIGNATURE (TYPE NA 
I ROJECT ENGR. * Choate// 



JAN»aniTSlG{4> 7 



ENG. MGR. 
TEL. EXT. 



M. 



Horovitz/ %^ *\&s\ 



DISC. PROJ. NO. 



4088 COST CENTER NO. 

V20-07846 DATE . 



301 



8/18/76 



REVIEW SIGNATURES (SEE INSTRUCTIONS FOR APPLIC.) 



FIELD SERVICE 



DIAGNOSTIC ENGR. 



COORD. NO. 



REF. NO. 




ENGINEERING 
CHANGE ORDER 



CONTINUATION 
SHEET 



ECO NO. J>£rAA 



SHEET 2 OF 



ITEM 
NO 



DOCUMENT/PART NO. 



OLD 

REV 



NEW 
REV 



DISP 
COD£ 



DESCRIPTION OF CHANGE 



(CONTINUED) 



MD-ll-DZTAB 



C N/A - 



CHANGE LOCATION FROM 

11664 1372 

17600 

17602 

17604 

17606 

17610 

17612 

17614 

17616 

NO OTHER PATCHES REQUIRED 



TO 

240 
6301 
1376 
32714 
40 
1002 
062716 
2 

207 



I 



i 



